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; MODIFIED BY: 
V03-031 RASO330 Ron Schaefer 31-Jul-1984 
Fix basic name lookup algorithm so that case blind 
Lookups can find lower case names. 


v03-030 ACG0440 Andrew C. Goldstein, 24-Jul-1984 10:36 
Add ref count field to ORB 


: v03-029 LMP0275 L. Mark Pilant, 12-Jul-1984 20:03 
3 Initialize the ACL info in the ORB to be a null descriptor 
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list rather than an empty queue. This avoids the overhead 
of Sock ine and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


v03-028 RASO319 Ron Schaefer 29-Jun-1984 
Add a simple logical name table name translation cache 
to the recursive table name lookup algorithm in order to 
(hopefully) improve the performance of logical name processing. 
The methodology is as follows: 


SCooec 


In per-process space, there exists a small queue of fixed-len 
entries contain a tapie name LNMB addr, a process and 
pyates directory incarnation sequence number and upto 
LNMCSK_NUM_ENTRIES worth of table header (LNMTH) addresses 
fied by that table name. 
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When doing a table lookup; 
We lookup the table name 

normally. We then check the cache for a matching LNMB. 

If there is a cache entry and the directory incarnation numbers 
are still valid, then we use the vector of LNMTH entries 

rather chen Looking them up by name. 

If no valid cache entry is found, we take the LRU cache 

entry, initialize it for this name and use the normal 

table Lookup presegures. except that as a table header is 
rae. we store it’s address in the cache entry for future 
reference. 

If we use up all coene entries before finding the correct 
table, the cache entries will run pus . In that case, we 

reset the cache index to start building a new cache entry 

table from the beginning since it is impossible to relate 

a given cache entry back to the corresponding name. 

If the number of table entries, exceeds the cache table size 
then we give up and do things the slow way. 


RASO316 Ron Schaefer 25-Jun-1984 
Add new LNMSDELETE_HASH routine to delete all logical names 
within a given hash table and saying 3 given or outer 
access mode. This is ECO 4 in the FT2 update. 


RASO312 Ron Schaefer 18-Jun-1984 
Prevent accvio in searching tables if no process logical 
name table/hash teehe(prrec tery has been created. 

Fix alignment of ORB block in table. 
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TMKOO18 Todd M. Katz 24-Apr-1984 
pnenge the name of the logical name mutex from LOGSAL_MUTEX 
to LNMSAL_MUTEX. 


TMKO017 Todd M. Katz 21-Apr-1984 

I have changed the interface to the routine LNMSDELETE_LNMB. 
This routine is now called with the logical name block it is 

to delete together with all of the outer access mode aliases 

of the logical name represented by the logical name block. 

prey severe the interface to this routine consisted of it being 
called with a logical name descriptor, containing table header 
address, and the access mode of the innermost logical name 

to be deleted, despite the fact that the calling routine always 
had the logical name block for the innermost access mode logical 
name to be deleted. 


Make LNMSDELETE a local routine. This routine is only called by 
the routines within this module. 


The performance mopoucenent cell used to monitor che rate of 
sopicas name translations is currently located within the 
internal logical name routine LNMSSEARCHLOG. Unfortunately, 
because of ss current pia ement, any ortoness to delete 
specific logical names w tt also increment his counter. This 
is because the system service SDELLNM will cal the routine 
LNMSSEARCHLOG in such a situation. Therefore, in order to be 
able to make a more accurate measurement of the overall rate 
of logical name translations, I have decided to move this 
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performance measurement cell from its current single location 
to several more appropriate locations. One of these new 
locations is within the internal routine LNMSSEARCH_ONE just 
before the call to LNMSSEARCHLOG. 


V03-023 CwH3023 CW Hobbs 14-Apr-1984 
Fix a broken branch. 


Sooo 


V03-022 TMKO016 Todd M. Katz 11-Apr-1984 
Make a change to DELETE i NMB such that when this routine is 
called to delete a snaréabie !ogical name table and its 

associated Object R pits Block, it cleonuge ve the ORB first 


before deleting the [ogical name block and 


v03-021 TMKOO15 Todd M. Katz 10-Apr-1984 

Change LNMSSEARCH_ONE to position past all translation blocks 
with negative indexes (ie - those reserved for Syston use) to 
the first translation block with a non-negative index or to the 
last translation block, whichever comes first. If the 
translation block positioned to is not the Last one and has an 
ndex of 0, then return success together with the contents of 
the entire translation block in the user supplied buffer. 
Otherwise, return an error of SS$_NOLOGNAM. 


V03-020 TMKO014 Todd M, Katz 02-Apr-1984 
have made the following optimizations and bug fixes to the 
routines within this module. 


1. I have changed how LNMBs are ordered within a hash bucket 
both to increase performance and to fix a problem in hash 
bucket searching. The new ordering is first by name string 
length, then my name string, then by containing table header 
address, and finally by access mode. ereyiqual’. the LNMBs 
wate ordered by access mode before containing tab 
address. 


SSSSSSsssssssssssssssssssssss 
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le header 


What this new ordering gains is the ability to use the 
containing table header address in determining when searches, 
such as those directed by LNMSSEARCHLOG, should terminate for 
a current containing table header address. With the old 
ordering, containing table header addresses could not be used 
to terminate a search. Even if the target LNMB was not found 
among the user mode LNMBs, the search would still have to 
continue with the supervisor. euecyt ive and kernel mode 
LNMBs. Basically, this meant ignoring the ordering of LNMBs 
by conga ining table header addresses. Unfortunately, this 
y gnor ng’ was not being done, and this resulted in the 
inability to find certain logical names even though they were 
resent. When chonged the ordering of LNMBs within the hash 
ucket, not on y ¢ I gain the ability to use the ordering 
of LNMBs by containing table header addresses to terminate a 
pears® and thus increase performance, but at the same time 
1 eliminated this part quipe problem which was causing 
certain STRNLNMs to fail when they should have succeeded. 


The routine ANS CONTSEAREN makes the assumption that when 
it is directly called, NT_L_THREAD contains the address 
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the outcome is already known 
performance can be realized { 
is eliminated. 
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name recursion depth instead 


of the local symbol RT_C_MAXDEP. 
e made two changes to LNMSSEARCH_ONE. Before callin 


I have 
LNMSLOCKR to lock the logical 
tovt ies saves the current IPL 
IPL to this value after unloc 
eatline LNMSUNLOCK. This chan 
exits with IPL set to IPLS$_AS 
of be set back to its pital 
exits. The reason why IPL is 
abe pee bay by is a th 
routines make the assumption 
IPL$_AST + Oy the current pr 


The second change I have made 
was checking access to proces 


name mutex for reading, this 

on the speck. and then ny =e 
hig the logical name mutex by 
9 5 requires ey LNMSLOCKR 

and therefore, IPL cH ONE have 

value before LNM$SEAR NE 

not lowered until Steer 

e mutex locking and unlocking 
that IPL does not fall below 
ocess has the mutex locked. 


is a bug fix. LNMSSEARCH_ONE 
s-private logical name tables 


ynen the AS te name found was contained within one of them. 


<<? a check is un-necessar 
such tables de not have an 

h them, and LNMSCHECK erase 
with a table header that does 


gjece i fact must not be done. 
ject gi oH Bi gck associated 

will accvi t is called 

not have a pA ORB. 


I have fixed a Tg ig implementation prodice in an 
e 


that was makin hashing r 
alignment of the address o f 
supposed to hash (and why th 


outine sensitive to the 
he string this routine is 
Ss was ever working I'LL never 


14 
= LOGICAL NAME RELATED SUBROUTINES 16=SEP=1984 00:30:35 VAX/VMS M 4- 
metas Pa eee MS RTT IT Ie Page i; 


know). What LNMSHASH should have been doing, and does now is: 


1.) Save the number of bytes in the yee 
¢°} Divide the number of bytes in the string by 4. 
af pregees one string, four bytes at a time, to compute the 
ash code. 

4.) Retrieve the string size, and use the low-order two bits, 
in effect the remainder from the integer division in 1.), 
to determine how many bytes of the string have not yet 
pert icipated in the congutet on of the hash code, and to 
direct their participation. 

5.) Complete computation of the hash code. 


In step 1.), instead of saving the number of bytes in the 

string, LNMSHASH was saving the etring address. This made 

the computation of the hash code sensitive to the alignment 

of the spring address passed to it. gnetneruares if the 

name string FOO was presented to LNMSHASH as being at address 
at one time, and as being at address 601 a second time, 

the two hash code values determined for FOO would be 

different - an extremely serious problem. A given name must 

always hash to a constant value. 


v03-019 TMKO013 Todd M. Katz 30-Mar-1984 
Modify the logical name system services to make use of the 
updated internal protection checking mechanisms. What this 
requires is modification to the routine LNMSINIT_PROT, so that 
it initializes a quad-word aligned Object Rights Block for 
shareable logical name tables in place of an un-aligned CHIP 

rotection template, and a modification to the routine 

NMSCHECK_PROT, so that it makes use of the new internal 
check protection system service interface. 


v03-018 TMKO012 Todd M. Katz 22-Mar-1984 
Fix a bug in logical name table processing. When a translation 
has the attribute TERMINAL, the translation string must be the 
the name of a logical name table, and LNMSTABLE remembers this 
for the next level of recursion by setting the bit RT_V_TERM 
within the RT_B_FLAGS field of the table recursion control 
block. If the translation string is the name of a logical name 
table then LNMSTABLE makes a successful exit with this bit 
still set within the recursion control block. Then if for 
some reason LNMSTABLE is called once more to continue the 
recursion and find the next table, because RT_V_TERM has not 
been cleared, LNMSTABLE will immediately and Tntorrectly exit 
with an error of SS$_IVLOGTAB. The fix to this prope s to 
unconditionally clear this bit on entry to LNMSTABLE. 


vO3-017 TMKOO11 Todd M. Katz 21-Mar-1984 
Make LNMSPRESEARCH, LNMSCONTSEARCH, LNMSSETUP, and LNMSTABLE 
global, so that they maybe used by SHOW LOGICAL. 


vO3-016 TMKO010 Todd M. Katz 07-Mar-1984 
Logical name table name processing is recursive. A table 
name is provided, and the corresponding logical name block is 
poceted. if one exists, by pes ing the name and looking for the 
logical name block w thin the indicated hash buckets (first 
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searching the process-private name space and then searching the 
system name space). If the logical name block exists, and it is 
for a yog tees name table, then table processing terminates. 
Otherwise, this procedure is repeated, in turn, for each of the 
logical name's translations and for each of the translation's 
translations, etc... until the first Logteat name table is 

ve hee Se until all possible translation paths have been 
exhausted. 


I have added an optimization to this recursive logical name 
table name processing. This optimization consists of storing 
the hash ogee value of each equivalence string within the 
corresponding translation block. Because the ry first step in 
each recursive logical name block lookup is the hashing of the 
target block's name + hg in order to provide the hash buckets 
in which to concentrate the search, already having the 

srereer tase hash code means that this step of a logical name 
block lookup maybe by-passed. 


There are two exceptions to this optimization which will require 
the target block's name to be hashed during a recursive logical 
name block lookup. First, the target block’s name will have to 
be hashed during the very first recursive logical name block 
lookup. This is because the hash value of this name string isn't 
available. Secondly, because there is no way to distinquish 
between a valid hash code of 0, and the total absence of a hash 
code, this means that whenever one of these stored hash code 
values is 0, the equivalence string within the corresponding 
translation block will end up —— hashed anyway during the 
lookup of the target logical name block. 


The modifications which are required in order to implement this 
feature are as follows: 


1. Increase the size of the fixed portion of each translation 
block by_a word in both logical names and logical name 
tables. This word may potentially contain the translation 
string's hash code value. 


2. Initialize this new field of each translation block with the 
hash code value of the correspenetne equivalence string 
provided the translation block is part of a logical name 
(and not a logical name table) contained within a directory 
table. It is these names, and only these names, which are 
utilized in logical name table name processing, and thus, 
only these names have to have the hash code values of their 
equivalence strings computed and stored appropriately. 


The routine LNMSINSLOGTAB has been modified to perform this 

4 bbe as he 1 whenever it determines that the ogtcat name 

block it is inserting \s for a logical name contained within 
the process or system directory logical name table. 


The routine LNMSLOOKUP has been modified, so that i takes 

as additional input the hash code value of name string of the 
porget Logical name block this routine is to look up. This 
hash code value is placed into the hash function field of a 
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name translation control 444 pt This will result in the 
by-passing of the determination of the hash code value of the 
name string whenever the inputed hash code value is non-zero. 


4. The routine LNMSTABLE has been modified, so that the hash 
code value of the name str ng of the next target Logical name 
block is extracted from the translation block containing the 
name string. This hash code value, together with the name 
string, is then passed to LNMSLOOKUP forcing oe of 
the determination of the hash code value of the name string 
of the next target logical name block during its lookup. 


5. Finally, a modification has been made to Lasse Tue the 
routine respensible for setting up and in tialization the 
recursive logical name table name processing. Because the 
hash code of the name string of the initial target logical 
name block is not available, this routine must zero out the 
register in which LNMSLOOKUP expects to find the hash code 
of the logical name block it is to lookup. This will force 
the hash code value of this name string to be determined, 
which is proper since LNMS$SETUP doesn't have it anyway. 


RASO255 Ron Schaefer 17=F eb-1984 
Make LNMSM_CASE_BLIND work for DEC multinational characters. 
TMKO009 T at 03-Feb-1984 


odd M. K 
If LNMSFIRSTTAB is unable 
table within the input List o 
return an error of SS$_NOLOGTAB 
S$S$_NOLOGNAM. 


TMKO0008 Todd M. Katz 29-Dec-1983 
Add the global routine LNMSDELETE_LNMB which takes as input 
the address of a table header, a descriptor of the name of a 
Logical name table entry, and an access mode and deletes all 
instances of the logical name table entry within the specified 
logical name table at all access modes outer and equal to that 
of the specified access mode. 


Add the global routine LNMSSEARCH_ONE which takes as input: 


1. A descriptor of a logical name table name. 
- A descriptor of a logical name. 
- A descriptor of an output buffer. 

4. The PCB address. 

5. An access mode. 


z 
to find an getty logical name 
t of es bp name tables names, 


nstead of an error of 


This routine simulates a STRNLNM returning a copy of the LNMX 
translation block for translation index 0 in the specified 
output buffer provided a Logical name "9 found ~“ the found 
Logical name has a translation with an index of 0. This routine 
does NOT do any type of arguement verification. 


Make a small modification to DELETE_NAMES and LNMSDELETE 
so that the directories, proses and oysyes can never be 
either explicitely or im icitely deleted. Also, return an 
error from within LNMSINSLOGTAB if the caller attempted to 


somes La eM 
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create a logical name table entry within one of the directories 
with the same name and access mode as the directory itself. 

This is done by eorer allowing a LNMB which has f e 
LNMBSV_NODELETE bit set within its LNMBSB_FLAGS field from being 
deleted, and as the directory tables are the only tables that 
are created with this attribute, this protects the directory 
tables, and only the directory tables, from being deleted. 


Make the giobet routines LNMSPRESEARCH, LNMSCONTSEARCH, 
LNMSLOOKUP, LNMSSETUP, AND LNMS$TABLE Local routines. 


v03-012 vexovet Todd M. Katz 27-Dec-1983 
LNMSINIT_ PROT was clearing the member field of the CHIP template 
UIC if the logical name table whose CHIP template was being 
inited was a group table. This is no longer necessary because 
group tables are now handcrafted, and can not be created by 
means of the SCRELNT system service. 


v03-011 TMKO006 Todd M. Katz 14-Dec-1983 
Make a change to recursive table lookup preseeenry implemented 
within the routine LNMSTABLE. Currently when the lookup of a 
name fails it also terminates the recursive search for a logical 
name tabie. The change is to not have a name lookup failure 
automatically terminate a table lookup. Instead when the lookup 
of a translation string fails, ayy continues with the 
next translation and an attempt is made to lookup its string. 
Conceptually what this means is that non-existant pe teas name 
tables in a List of logical name table names are ‘'skipped over" 
during the search for valid logical name tables. Currently, what 
would aeepen is that such a search for valid tables will 
immediately terminate with an error when the first non-existant 
table was encountered in the List of logical name table names. 


Also, change some PUSHRs into PUSHLsS (or MOVQs) and POPRs into 
POPLs (or MOVQs) where appropriate for performance reasons. 


V03-010 TMKOO0S Todd M. Katz 26-0c t-1983 
Quota handling when logical name tables are being created or 
deleted is presently incorrect. Currently, when a logical name 
table is created, quota consisting of the size of the new 
logical name table plus any quota explicitely allocated to the 
new table is subtracted from the quota holder of the perems 
Logical name. When a logical name table is deleted, the reverse 
of this quota deduction takes place. This deduction scheme is 
consistant but incorrect, and I have changed it by modifying 
DELETE_LNMB and LNMSINSLOGTAB as follows: 


When a logical name table is created, any quota eupt Setety 
allocated to the new table is deducted from the parent table's 
quota holder as was previously being done; however, the size 

of the new table itself is deducted from the quota holder of the 
table that contains it (either the system or process directory 
table). This is consistent with how logical names are handled, 
and the Spt hesenny that logical name tables are Just logical 
names with a special translation. When a logical name table is 
deleted, the reverse of these two deductions takes place. 
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I have gise removed the code for LNMSINSLOGN, LNMSTRANSLOGNAME, 
and LNMSTRANSLATE. These routines are never called, and have 
been commented out for months. 


v03-009 ACG0354 Andrew C. Goldstein 12-Sep-1983 21:55 
Change RWACCESS field in CHIP block to FLAGS field 


v03-008 TMKO004 Todd M. 31-Aug-1983 


fe) Katz 
At the present time logical name blocks in each hash bucket are 
access mode, then 


ordered first by log cal name size, then by 
alphabetically, by logical name, and final 4 by containing 
table. The tes te of logical name blocks by access mode 
before alphabetically meant that a supervisor mode ‘‘d’’ logical 
name block would be found in the same hash bucket before an 
executive mode ‘'c’’ logical name block, and the explicit search 
or ‘'c’' with the starting access mode specified as user or 
supervisor would stop when the ‘‘d"’ logical name block was 
encountered before the ‘'c'’ was seen. Thus, ‘‘c'’ would never be 
located unless an explicit search for an executive mode ‘'c’’ 
was initiated. This represented an error and is basically due 
to the fact that searches for an explicit logical name are 
performed for names at the giver and inner access modes, while 
the search process itself will stop as soon as a Logical name 
is encountered that collates higher than the logical name being 
searched for, regardless if the name being searched for exists 
at an inner access mode then the logical name block that 
terminates the search. To fix this problem I have changed how 
Logical name blocks are ordered within a hash bucket. Logical 
name blocks are now ordered first by the size of the logical 
name, then + yom tae  g by logical name, then by access mode 
of the Loaves name, and finally by the containing table's 
table header address. 


TMK0003 Todd M. Katz 09-Aug-1983 

If LNMSINIT_PROT has been called to initialize the CHIP 
protection template for a group logical name table (as 
signalled by the Sete ing of the bit LNMTH$V_GROUP), then zero 
the member portion of the owner UIC field of the CHIP template 
so that the group table does not have an owner. 


gh | the routine LNMSCHECK_PROT so that it will grant access 
to a logical name table, even when the caller would otherwise be 
refused access based upon SOGW access protection, in two special 
circumstances. First, if the logical name table is a group 

Log cal name table (LNMTHSV_GROUP is set), the caller has the 
GRPNAM privilege, the group Logical name table is the caller's 
group logical name table, and the caller has requested R or W 
access to the table only, then return success granting access 

to the table. Second if the logical name table is the system 
logical name table (LNMTHSV_SYSTEM is set), the caller has the 
SYSNAM privilege, and the caller has requested R or W access to 
the table only, then return success P compat ibiL ity to the 


v03-007 


table. These changes are required for compa lity reasons so 
that access to the system and group tables is governed by the 
same privileges across releases. 


Comment out the unused routine LNMSINSLOGN. 
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Ron Schaefer 5-Jul-1983 
orrect RASO158 and RASO160 to ignore the caller's 
access mode in the CHIP protection checking since the 
logical name code uses a non-standard interpretation of 
access mode. 


LMP0125 L. Mark Pilant 26-Jun-1983 21:54 
Change all _referneces of CHIP$B_ACCESSOR_MODE to be 
CHIPSL_ACCESSOR_MODE. 


RASO160 Ron Schaefer 16-Jun-1983 
Add access mode of tadle to CHIP block and move 
performance measurement cell to LNMSSEARCHLOG. 


RASO158 Ron Schaefer 25-May-1983 
Add protection checking support subroutines LNMSINIT_PROT 
to initialize the CHIP block for a table and LNMSCHECK_PROT 
to check references to a table. 


TMKO002 Todd M. Katz 25-Apr-1983 
Fix several more bugs in these subroutines. The most 
significant fix is one to LNMS$SEARCHLOG. As this routine 
Locates the logical name tables in the List of such tables, 

it searches for the presence of the given a Hp name within 
them until a match is found. If the current logical name table 
in the list of tables is shareable, only the shareable name 
space is looked at for a match; Likewise, if the current logical 
name table is process-private, only the process-private name 
space is referenced. The code that was making the distinction 
between these two cases was incorrect, the result being that 
the process-private name space was always being searched. 
Furthermore, the code was incorrect in that processing of the 
current table should be skipped if there is no name in the 
same name space as the table itself. This was not being done 
and allowed the possibility for access violations to occur. 


In addition, fix the quota check in LNMSINSLOGN. The branch 
etd a this check was signed, and it should have been 
unsigned. 


Also, increase the maximum recursion depth from 8 to 10. 


TMKO001 Todd M. Katz 25-Mar-1983 
Fix several bugs in these subroutines: 


1. The PCB is only requires on calls to LNMSTRNSLOGNAME, 
LNMSTRANSLATE, LNMSLOCKR, are ge and LNMSUNLOCK. 
Therefore, remove the requirement that it be present in R4 
from all routines except for the above mentioned five. 


2. When allocating and to in the Recursive Table Name 
Control Block within LNMSFIRSTTAB and within LNMSSEARCHLOG, 
use a MOVZWL instead of a MOVZBL to fill in the access mode 
and set the case control bit because the latter occupies 
the first bit of the second byte of the source operand. 
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3. The table header of the process or system direstory table is 
supposed to go in the TABID Field of the Name Translation 
pueee when a table name is to be jookeg up by callin 
_ LOOKUP. This routine was placing t'e address of the table 

nstead of the address of the table header in this field. 


4. I have restructured the routine LNMS$TABLE as follows: This 
routine now saves the address of the translation block it is 
working on in the Recursive Table Control Block before it 
looks up the translation string in the hash tables. The 
one exception is the arts nal table name which is looked 
up without being saved. This allows continuation down the 
translation blocks of eight logical name blocks until a 
table is found as long as the names being looked up are in 
tact found. Previously, this information saving was being 
done sa 6 ne be and at the wrong time. This meant that 
the routine could not pick up and continue with the next 
Sw poe be block after the current translation thread 

ead ended. 


I have restructured the routine LNMSCONTSEARCH as follows. 
As this routine is processing the LNMB Blocks within the 
current hash bucket it aoree the address of the previous 
LNMB within the THREAD cell of the Name Translation Control 
Block while the address of the LNMB it is working on is 
always in R1. Then whenever this routine exits, regardless 
of the status it exits with, R1 will always contain the 
address of the LNMB Block that stopped the search (or 0 if 
the List was exhausted) and NT_L_THREAD contains the address 
of the previous LNMB block. ThTs provided sufficient 
information to allow new LNMB blocks to be inserted in the 
correct place regardless of where that place is. 


“ 
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In addition this routine was ger forning a CMPC3, and then 
checking the state of a bit within a field pointed at by R3 
to determine whether the comparison is to be made case 
sensitive or blind. Of course, the CMPC3 changes R35, so this 
check must be made using the original contents of R3 which 
have been stored on the stack. 


SoOCOoCoOOOOSoOOSOOCOSOOOOCOOOOSOOOOOOSOSOSOS 
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I have re-written LNMSINSLOGTAB. There were many problems 
with the old routine including the inability to correctl 
find the table header of the new table entry, an inabili 
to just map a new entry to an existing entry when CREATE_IF 
had been specified, and the way in which new entries were 
Linked into the exisiting List of entries within a hash 
hash bucket was completely incorrect. 


I have have re-written the routine DELLNMB a DELETE _LNMB 
the routine DELTAB as DELETE NAMES the routine LNMSOELETE, 
and the routine LNMSDELTAB as L beLete TAB. I have changed 
the name of DEL1 to DELETE_ENTRY, added fhe routine 
DELETE_TABLE, and eliminated the routine LNMSDELHASH. 


9. The status SS$_EXLNMQUOTA is returned instead of SSS$_EXQUOTA. 
10. Put the names of the routines on the subtitles. 


OoOOSCOCSCOOOOSOOSOSOSSOSOSOOOSOOSOSOSOSOSOOOOOSOOOSOSoOO 


Ooooo 
SSoOOoOoSoSoo 
OOOCOCOCOCOCOOSOOSSSSOSSSOSOCOOCSCSOOOOOOOOOOOOOOOOOO 


SSSSSSSSSSSSSS 


PIPPIN INININS 2 2 9 PM QOOODODOOOO OOO CL OW O OO 000909090909 09090909 SIN NINN 
~ 
a 


NOAA AN 9 ODNA UNE WIN OOD NAME WWI OS OD NA UE WWI O OD NA UNE WIR OO ONOUS 
Be Se Oe Oe Oe Oe Oe Oe Oe Oe Oe Be Oe Os Be Be Oe Se Oe Be Be Be Be Oe Oe Be Oe Oe Os Oe Oe Oe Os Be Os Be Oe Ss Os Se Be Os Oe Se Be Se Bs Oe Se Be See Se Se Se Oe ee 


LDRDLRQEDPP PAPA PAPPAP AAP ADP PADD DAD DED DPD PPPS VSS VSS VSS TS VSS SSIS IOS ISIS 


SOOCOOOOCSOSOSOSOSSOSOSOOOOOOSOOOOOOCSOSOSOOSOOOOOOOOOOOOOOOOOOOOOOOOOO 
Sooooooooo 


K 14 
= LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro v04-00 LN 
-SEP-1984 90:20:33 EOYS. SRCTCNMSUB. MARS 1 ve 
4 
ei$ .SBTTL DATA DEFINITIONS 
645 ; 
646 * MACRO LIBRARY CALLS: 
otR 
e¢8 SARMDEF :DEFINE ACCESS RIGHTS MASK 
0 650 SCADEF [DEFINE CONDITIONAL ASSEMBLY SWITCHES 
0 651 SCHPCTLDEF [DEFINE CHIP PROTECTION CONTROL BLOCK OFFSET 
000 6 é SDYNDEF [DEFINE STRUCTURE TYPE AND SUBTYPE CODES 
90 6 SLNMDEF [DEFINE LOGICAL NAME ATTRIBUTES 
654 SLNMSTRDEF [DEFINE LOGICAL NAME BLOCKS OFFSETS 
000 655 SORBDEF [DEFINE ORBJECT RIGHTS BLOCK OFFSETS 
00 636 PCBDEF [DEFINE PCB OFFSETS 
0 65 SPRVDEF [DEFINE PRIVILEGE MASK OFFSETS 
00 658 SPSLDEF [DEFINE PROCESSOR STATUS FIELDS 
00 659 SSSDEF ‘DEFINE SYSTEM STATUS VALUES 
as 
44 666 3; ASSUMPTIONS ABOUT THE STRUCTURE AN OBJECT RIGHTS BLOCK AND A CHPCTL: 
9909 664 
000 665 ASSUME ORBSL_OWNER, EQ, 0 
0000 666 ASSUME ORBSL-OWNER+4 EQ, ORBSL_ACL_MUTEX 
0000 66 ASSUME ORBS$L-ACL MUTEX+4, EQ, ORBSW-SIZE 
0000 668 ASSUME ORBSW-SIZE+2, EQ, ORBSB-TYPE 
0000 669 ASSUME ORBS$B-TYPE+1 EQ, ORBSB-FLAG 
9000 670 ASSUME ORBSB-FLAGS+$ EQ, ORBS$W-REF COUNT 
0 671 ASSUME ORBSW-REFCOUNT+2, £Q. ORBSQ"MODE PROT 
000 626 ASSUME ORBSQ-MODE PROT+8, EQ. ORBSL~SYS_PROT 
900 67 ASSUME ORBSL“SYS_PROT+4, £0. ORBS$L~OWN~PROT 
000 674 ASSUME ORBSL-OWN-PROT+4, EQ, ORBSL-GRP-PROT 
000 675 ASSUME ORBSL“GRP-PROT+4, EQ. ORBS$L-WOR-PROT 
99 676 ASSUME ORBSL-WORTPROT+4. €Q. ORBSL-ACL~COUNT 
00 67 ASSUME ORBS$L~ACL =COUNT #4, EQ, ORBSL-ACL-DESC 
00 678 ASSUME ORBS$L~ACL~DESC EQ ORBSRe MIN-CLASS 
0000 679 ASSUME ORBSR-MIN~ ee eS sORBES. “MIN_CLASS,- 
6 680 EQ - ORGSR MAX_CLASS 
0 681 ASSUME ORBSR_MAX_CLASS+0RB $5 “MAX CLASS,= 
0 6 : EQ; ORBSK LENGTH 
$6 684 ASSUME CHPCTLSL_ACCESS, , 
0 485 ASSUME CHPCTLSL-ACCESS+4, EQ, CHPCTLSL_FLAGS 
6 ASSUME CHPCTLSL-FLAGS*+4, €Q. CHPCTLSB-MODE 
900 6 , ASSURE CHPCTLSB-MODE+4, £0, CHPCTLSC"LENGTH 
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- LOGICAL NAME R 16-SEP-1984 00:30: Pp 4 LN 
DATA DEFINITIONS ~SEb= 1382 BS: zh:53 PANEMES Heer OKO, ow ie vo 
3 FARRAR AA AAA AAT AAA AAA AAA AAAAAAAAAAAAAAAAERAAAAAAAKAAAEEAAeATeAeeEKeAeeeeeAe ee 
: THIS CONTROL BLOCK I$ ALSO LOCALLY DEFINED IN THE SHOW LOGICAL UTILITY 
93 ; ANY CHANGES TO THIS DATA STRUCTURE MUST BE REFLECTED IN SHOW LOGICAL AS WELL. 
636 WITITITIIIIITIITI IIIT ILILILILTLILILiLiiTiLiLiTiTiiiiiiiiiiiiiiiiiiii it tie 
697 ; 
£33 ; BLOCK TO CONTROL RECURSIVE TABLE NAME TRANSLATION 
0 i : 31 25 246 16 987 0 
7 1 3 $eoom mee ewoenn oceans $ ew esansewc ret oceee I ers 
§ 7 3 : RS => | TRIES | DEPTH ' TC} ACCESS MODE } 
00 7 3 peewee eeececcceca $eweccoccccocecn $eeeccececcoccecn $eeecececcocecon + 
99 704 ; ' ADDRESS OF NAME BLOCK 
0 705 $ $oeeeccesecosecon $owocececocescecen $ooecceceescoccn $oeeceecccececcon + 
000 £06 ; ' 
900 aL 3 LNMSC_MAXDEPTH LONGWORDS TO SERVE AS STACK 
0000 709: 
0000 710 : $eoowoeceeecececn $eoocececcceeccon Goecoecceececcecn $oeweccccoeeocccn + 
9000 711; 
909 ay : F IS SET TO INHIBIT FURTHER RECURSION 
00000000 $609 714 RT_W_RS= 0 
00000000 0000 715 RT“BTACMODE= 0 
00000001 0000 at RT~B_FLAGS= 1 
00000008 0000 717 RTV~CASE= é sCASELESS FLAG 
00000001 0000 718 RT“M~CASE= “x1 SCASELESS MASK 
00000009 999 719 RT-V~TERM= 9 : INHIBIT RECURSION FLAG 
00000002 0000 720 RT“M~TERM= 4x2 : INHIBIT RECURSION MASK 
909 f 1 ; GIT NUMBER 10 IS RESERVED. 
0000000 $09 7 § RT_B_DEPTH= : ;RECURSION DEPTH 
00000003 0000 724 RT“B-TRIES= SRECURSION TRIES 
QOOOOOOFF 0000 725 RTIC“MAXTRIES= 255 :MAXIMUM NUMBER OF TRIES 
00000004 0000 7 6 RT-L-CACHEPTR= 4 [POINTER TO CACHE ENTRY 
00000008 0000 727 RT“L“STACK= 6 
00000030 900 , 8 RT“K-LENGTH= § RT_L_STACK+<4*LNMSC_MAXDEPTH>  ;BLOCK LENGTH 
000 730; PAGE 
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v04- DATA DEFINITIONS “SEP-1984 05:44: SYS.SRCJLNMSUB.MAR; 1 (5) 
§ FRARAAAATA AAA AAA EAA AAA EAAAAAAAAAARAAAAAAAAEKAAAAAAAAAAAAAREKEAAAeTeE ee TeTee 
4 ; THIS CONTROL BLOCK IS ALSO LOCALLY DEFINED IN THE SHOW LOGICAL UTILITY 
5 ; ANY CHANGES TO THIS DATA STRUCTURE MUST BE REFLECTED IN SHOW LOGICAL AS WELL. 
WITTIITITIIITITII TIT LILI TTL LLL LLL LLL LiL hiti Tir iiiiiii iii 
739 ; 
° oy ; BLOCK TO CONTROL NAME TRANSLATION 
00 742 ; 31 25 24 16 15 A 87 0 
8 fe : $ewecececceecccen $ewecccecececccn $eoccceccesecocn $oeoeccecccccccccn + 
44 ; R3 => | HASH FUNCTION VALUE OR 0 ' | ACCESS MODE ' 
8 0 745 s ¢eeromereonrerzcese pes seeees eer wean permet osc er soe es pesos ocoawun a caae + 
000 oe HY H LENGTH OF NAME ' 
B55 74 : $eeoccecccccoecn $ewecccoccceccca $oweccccococcocca $oeoeoecoeccoccece + 
00 748 ; H ADDRESS OF NAME H 
00 74 3 $eewecescoescoca $oecccecccececon $eecccceccoceccn Goeeececeecoeccoa + 
000 750; ' TABLE HEADER ADDRESS OR 0 ' 
000 751 3 ¢eeceewe ser ee ese ne Pesan wera wee rocan peer eo nsec r oom ee boos nce re e2eoneaces +: 
4 03g : ' NAME BLOCK ADDRESS OR 0 : 
000: 7 : $eeecececeececcoa $oeeceeccesecocca $eoeeeeceecececn $oeeceeceoeecocn + 
0000 788 ; 
00000000 $00 538 NT_W_R5= 0 
00000000 380 £38 NT_B_ACMODE= 0 
00000001 000 759 NT_B_FLAGS= 1 
0000001 4 760 NT_M_CASE= 1 ;CASELESS MASK 
0000008 4 761 NT_V_CASE= 8 ;CASELESS FLAG 
000 166 ; BIT NUMBER 9 IS RESERVED. 
00000004 0000 765 NT_M_MODIFY= 4 ;HASH BUCKET SUSCEPTIBLE TO CHANGE MASK 
0000000A O60 ree NT_V_MODIF Y= 10 ;HASH BUCKET SUSCEPTIBLE TO CHANGE FLAG 
444 h9 4 £66 NT_W_HASH= 2 ;HASH FUNCTION OR 0 
0 00 767 NT“L-NAMLEN= 4 [LENGTH OF NAME 
si 4 4849: 8 38 £68 NT_L_NAMADR= 8 sADDRESS OF NAME 
000000 3 A NT_L_TABID= 12 ; TABLE HEADER ADDRESS OR 0 
B28 01 8 ; 770 NT_L_THREAD= 16 ;LNMB POINTER 
0000014 4 oy NT_K_LENGTH= 20 ;BLOCK LENGTH 
$000 ie 3 . PAGE 
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-SBTTL DELETE_ENTRY - DELETE ONE LOGICAL NAME TABLE ENTRY 
DELETE_ENTRY = DELETE ONE LOGICAL NAME TABLE ENTRY 
THIS ROUTINE IS CALLED TO B+} ONE LOGICAL NAME TABLE ENTRY. 
IF THE ENTRY IS A TABLE HEADER . ‘3, Lie pet TO R5. 


OTHERWISE, THE LOGICAL NAME BLOCK 
THER ALL SPECIAL SUF ORMAT IONE THER THAN THE TABLE 
HEADER) IS HANDLED 


INPUTS: 


ot 
m 
— 


ESS OF ENTRY TO BE DELETED. 

ESS OF LIST OF LOGICAL NAME BLOCKS CONTAINING 

E HEADERS 

IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS ,OCReD FOR WRITE ACCESS, 
AND THAT THE CALLER HAS THE PRIVILEGE OF DELETING THE LOGICAL NAME 


TABLE ENTRY. 
OUTPUTS: 


THE ENTRY IS REMOVED FROM ITS RESPECTIVE LOGICAL NAME TABLE AND THE 
STORAGE IS RETURNED TO THE APPROPRIATE ALLOCATION REGION. 


ADDITIONAL OGICAL NAME BLOCKS CONTAINING TABLE HEADERS MAY BE 
RO, R1, R2, AND R3 ARE MODIFIED. 
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0000 YFSSLNM 


.PSECT 

DELETE_ENTRY: 
MOVa LNRBSL FLINK(R1),R2 
MOVAL +, CNMA$L_FLINK(R3) 
BEQL g82) 


MOVL R3,LNMBSL_BLINK=4(R2) 
$: MOVAB LNMBST_NARE(R1),R3 
0S: ROVZBL (R3)+ tis tLENGTH 
ADDL2 RO,R3 
BBS ttt - ‘END OF TRANSLATIONS 
BBS SEN DEX. tags 70$ ;BRANCH IF SPECIAL TRANSLATION 
ABLE List? 


KED 
BNEQ a ome. TBRANCH IF NOT TO LINKED TO 
RSB ;DELETE THE NAME BLOCK AND RETURN 


50$: + LAST ALATIONST CRS) .RO 3 TRAST IM STRING ADDRESS 


. AL ae TABLE ENTRY 
XT i IN go ier BLOCK 
THE END OF THE LINE 
REVIOUS PTR IN NEXT BLOCK 
NT my COUNTED NAME STRING 
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BNEQ 608 

ASSUME LNMBS FLINK, EQ, 0 
MOVL (R 

MOVAB tWAKST “XLATION#1 (R3),, 


LNMBSL” woes (R1) 
MOVAL otRID oR 
BRB 60$ 


» PAGE 


CONTINUE SCANNING TRANSLATIONS 


;LINK ONTO R5 LIST 
‘STORE TABLE IDENTIFIER IN A HANDY PLACE 


CONTINUE SCAN OF TRANSLATIONS 
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S 
OGICAL NAME BLOCK SEP=1 SYS.SRCILNMSUB.MAR; 1 
-SBTTL DELETE_LNMB - DELETE LOGICAL NAME BLOCK 
DELETE_LNMB - DELETE LOGICAL NAME BLOCK 


THIS ROUTINE IS CALLED TO DELETE A pees NAME BLOCK. STORAGE IS 
URNED T E APPROPRIATE ALLOCATION REGION AND QUOTA IS RETURNED 
P IATE TABLE HEADER(S). IF THE LOGICAL NAME BLOCK IS FOR A 
CAL NAME TABLE, THEN THE OBJECT RIGHTS BLOCK ASSOCIATED WITH 

LEANED UP BEFORE IT, TOGETHER WITH THE LNMB, ARE DELETED. 
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INPUTS: 
R1 = ADDRESS OF ENTRY TO BE DELETED. 


IF THE ENTRY IS FOR A LOGICAL NAME TABLE, IT IS ASSUMED THAT THE ADDRESS 
OF ITS TABLE HEADER IS STORED IN LNMBSL_BLINK. 


IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LO 
oy ae THE CALLER HAS THE PRIVILEGE OF DELETI 


OOOCOCCOCOOCOCOOOOCOoO 


5 _2nela ch 22nd ake dle eel ee ee ee tae dea tee dale ae dake dee aoe a eee 


CKED FOR WR 
NG THE LOGI 
OUTPUTS: 
STORAGE IS RETURNED TO THE APPROPRIATE ALLOCATION REG 
THE ORB ASSOCIATED WITH THE LNMB, IF THERE IS ONE, IS 
QUOTA IS RETURNED TO THE APPROPRIATE TABLE HEADER(S). 


RO, R1, R2, AND R3 ARE MODIFIED. 


ION. 
CLEANED UP. 


4 DELETE_LNMB: ;DELETE LOGICAL NAME BLOCK 
50 51 00 MOVL R1,R0 sADDRESS OF LOGICAL NAME BLOCK 
03 €1 BBC #LNABSV_ TABLE,- ;LOGICAL NAME TABLE? 
44 10 AO LNMBSB_FLAGS (RO) ,40$ 3NO - GO RETURN QUOTA FOR THE ENTRY 
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OOOOCCoOOCooooooooooocoooo 
NNNNNN 0 no 
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5 
5 
2 Bre 
5 ; THE LOGICAL NAME BLOCK BEING DEALLOCATED IS FOR A LOGICAL NAME TABLE. TAKE 
2 ; THE FOLLOWING ACTIONS BEFORE DELETING THE LOGICAL NAME BLOCK: 
5 : 1. REMOVE THE LOGICAL NAME TABLE ENTRY BEING DELETED FROM THE HIERARCHY OF 
goat : LOGICAL NAME TABLES BY MODIFYING THE CHILD POINTER OF THE LOGICAL NAME 
9057 : TABLE'S PARENT TABLE, AND THE SIBLING POINTERS OF THE LOGICAL NAME TABLE'S 
ft ; SIBLINGS AS REQUIRED. 
$3) ; 2. RETURN TO THE PARENT LOGICAL NAME TABLE'S QUOTA HOLDER (WHICH MAY IN FACT 
Bae H BE THE PARENT TABLE) ANY QUOTA EXPLICTELY ALLOCATED TO THE TABLE. 
Hi ; 3. If THE LOGICAL NAME TABLE IS SHAREABLE, CLEANUP THE OBJECT RIGHTS BLOCK 
57 ; ASSOCIATED WITH THE TABLE. THE ORB ITSELF WAS ALLOCATED CONTIGIOUSLY WITH 
57 : THE LOGICAL NAME BLOCK AND WILL BE DELETED WHEN THE LOGICAL NAME BLOCK IS 
ef : ITSELF DELETED. 
7 e 
23 oe A D H MOVL Lie BLINK(RO) ,R3 ADDRESS OF TABLE HEADER 
‘ DA D 22 MOVL LNMTHSC_PARENT (R$) ,R2 ADDRESS OF PARENT'S TABLE HEADER 
11 A2 3 9 F CMPL f LNMTASL_CHILD(RE) 31S BLOCK THE IMMEDIATE CHILD OF PARENT? 
63 BNEQ 10$ 3NO = GO FIND PRECEEDING SIBLING 


D 15 
LNMS = LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 19 
V04= DELETE_LNMB = DELETE LOGICAL NANE BLOCK ot 7 80:70:38 LEYS SRCICNMSUS MARS 1 * 
15 a3 0 65 99 MOVL  LNMTHSL_SIBLING(R3),-  ;YES = BLOCK'S IMMEDIATE SIBLING BECOMES 
11 A p LNBTHSLICHILD (Re) ; PARENT'S IMMEDIATE CHILD 
1 1 A BRB 0$ :GO RETURN DEDUCTED QUOTA 
5111 ag D0 g 198: MOVL —_ LNMTHSL_CHILD(R2),R1 sADDRESS OF PARENT'S IMMEDIATE CHILD 
15 Al 3 D 4 15$: CMPL R3,LNMTASL_SIBLING(R1) DOES THE SIBLING PRECEED THE BLOCK? 
6 1 7 5 BEQL ©--208 [YES = GO UNHOOK IT FROM LIST 
51 15 Al D 76 : MOVL LNBTHSL_SIBLING(R1) ,R1 [NO = RETRIEVE ADDRESS OF NEXT SIBLING 
1 zh BRB At} ; AND CONTINUE SEARCH 
15 A300 «=—007¢ $8 20$:  MOVL LNMTH$L_SIBLING(R3),- | ;UNHOOK LOGIAL NAME BLOCK FROM THE LIST 
15 al 4 10 LNMTHSL-~SIBLING(R1) [OF SIBLINGS 
52. 19 ng 00 0 1 316 30$:  MOVL  LNMTHSL_QTABLE(R2),R2  ;RETRIEVE PARENT'S QUOTA HOLDER 
DAS C 5 91 ADDL2 LNMTH$SL“BYTESLM(R3),- RETURN ANY DEDUCTED QUOTA TO PARENT'S 
21 A2 0 8 gi4 LNMTHSL BYTES (R2) ‘QUOTA HOLDER 
51 05 a3 09 O8A 316 MOVL §LNMTHSL_ORB(R3),R1 ;RETRIEVE TABLE'S OBJECT RIGHTS BLOCK 
0B OBE 91 BEQL 408 SSKIP ORB CLEANUP IF THERE ISN'T ONE 
50 oD 09 918 PUSHL RO [SAVE LNMB ADDRESS 
00000000" EF 16 98 919 JSB EXESCLEANUP_ORB 'CLEANUP THE ORB 
0 8ED0 098 3 0 POPL RO SRESTORE LNMB ADDRESS 
98 922; 
$96 9 g ; FINALLY, RETURN THE SIZE OF THE LOGICAL NAME (OR LOGICAL NAME TABLE) TO THE 
098 924 : QUOTA HOLDER OF THE CONTAINING TABLE, AND THEN PERFORM THE DELETION OF THE 
098 925 : ACTUAL BLOCK. 
098 959 | 
51 08 AO 3¢ $098 9 8 40$:  MOVZWL LNMBS$W_SIZE(RO),R1 :SIZE OF LOGICAL NAME BLOCK TO RETURN 
52 0C AO DO oon 3 ; MOVL  LNMBSL-TABLE(ROS ,R2 SADDRESS OF CONTAINING TABLE'S HEADER 
A 931 ; 
aDA 93¢ + BUMP THE APPROPRIATE DIRECTORY SEQUENCE NUMBER IF THE CONTAINING TABLE 
OOA3 933 : IS ONE OF THE DIRECTORY TABLES. 
Ng 
01 €1 OOA3 9 6 BBC WLNMTHSV_DIRECTORY,- |; DIRECTORY TABLE? 
12 62 OAS 9 LNMTH$B_FLAGS(R2),60$ :OKAY IF NOT 
08 52. 1F €0 OOA7 9 8 BBS ‘BRANCH IF SYSTEM DIRECTORY 
00000000" 9F 06 OAB 939 INCL aaCTL$GL_LNMDIRSEQ :BUMP PROCESS DIRECTORY COUNTER 
00000000' 9F 083 341 50S: INCL  @#LNMSGL_SYSDIRSEQ ;BUMP SYSTEM DIRECTORY COUNTER 
52 19 a2 00 089 80 60$:  MOVL LNMTHSL_QTABLE(R2),R2  ;ADDRESS OF QUOTA HOLDER OF TABLE 
21 a2. £0 D 944 ADDL2 R1,LNMTASL_BYTES(R2) SRETURN SIZE OF LOGICAL 
ooce 31 oc! 345 BRW LNMSDELBLK [DELETE LOGICAL NAME BLOCK AND RETURN 
bee 947 ; PAGE 
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16=SE 
ABLE AND DELET 873 SYS.SRCIJLNMSUB.MAR; 1 8) vo 
-SBTTL DELETE _NAMES = SCAN HASH TABLE AND DELETE NAMES 
DELETE_NAMES = SCAN HASH TABLE AND DELETE NAMES 


THIS ROUTINE SCANS A HASH TABLE AND DELETES ALL OF THE NAMES IN A SPECIFIED 
TABLE WITH AN ACCESS MODE GREATER THAN OR EQUAL TO THE SPECIFIED ACCESS MODE. 


THIS ROUTINE IS SET UP SO THAT IT WILL NEVER DELETE A DIRECTORY. 


LNMS = LOGICA 
vou=000 DELETE _N 
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INPUTS: 
Ri = ADDRESS OF TABLE HEADER OR 0 FOR ALL TABLES. 
Re = ACCESS MODE. 
R5 = ADDRESS OF HASH TABLE TO BE SCANNED. 
IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR WRITE ACCESS, 
AND THAT THE CALLER HAS THE PRIVILEGE OF DELETING THE LOGICAL NAME 
TABLE ENTRIES WITHIN THE SPECIFIED TABLE. 

OUTPUTS: 


ENTRIES ARE REMOVED FROM THEIR RESPECTIVE LOGICAL NAME TABLES AND THE 
STORAGE IS RETURNED TO THE APPROPRIATE ALLOCATION REGION. 
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0 
00 R1, R2, R3, R4, and RS ARE MODIFIED. 
$0 
0¢ DELETE_NAMES: 
55 D4 00C CLRL. RR ;ZERO LINKED LIST OF TABLE HEADERS 
54 51 00 00¢ MOVL  R1,R4 [ADDRESS OF TABLE HEADER 
50 63 CE 00¢ MNEGL LNMHSHSL_MASK(R3),RO _ :MAXIMUM BUCKET NUMBER 
53° OC ASOD 0 ¢ MOVAL LNMHSHSK~BUCKET(R3),R3 :BUCKET ADDRESS 
51 83 ~~ D 10$:  MOVL  (R3)+,R1 :BEGINNING OF HASH CHAIN 
¢8 1 0 D BEQL ‘EMPTY CHAIN 
4 05 00D 20$: TSTL R4 SSPECIFIC TABLE 
06 1 op BEQL 258 SNOPE 
0c Al 654)=«D1sO00D CMPL  R4, LNMBSL_TABLE(R1) ‘RIGHT TABLE? 
19 12 00D BNEQ [BRANCH IF TABLES DON'T MATCH 
0B Al 3¢ 91 00D 25$:  CMPB =R2,LNMBSB_ACMODE(R1) | ACCESS MODE COMPATIBLE? 
13 1A O0E BGTRU :BRANCH IF NOT 
04 €0 O0E BS #LNMBSV_NODELETE,- [DIRECTORY (NODELETE WILL BE SET)? 
OE 10 Al OE LNMBSB_FLAG (R1),30$ | :BRANCH IF DIRECTORY, NEVER DELETE ONE 
1F OE PUSHR #*M<ROTRI,R2.R3,R4> TSAVE SOME REGISTERS 
04 AE 04 Al p E 99 MOVL  LNMBSL.BLINK(R15,4(SP) :SAVE ADDRESS OF PREVIOUS BLOCK 
FFOC F 9 BSBW DELETE-ENTRY ‘DELETE LOGICAL NAME BLOCK 
0B Fe = 99% BSBB DELETE TABLE [DELETE TABLE IF CURRENT LNMB IS ONE 
1F BA OOF 9 POPR #*M<ROTR1,R2,R3,R4> TRESTORE REGISTERS 
51 61 »D F8 996 30$:  MOVL NMBSL_FLINK(R1S,R1 :MOVE TO NEXT LNMB_IN HASH BUCKET 
i. 1 F 9 BNEQ ‘BRANCH IF IT EXISTS 
D0 F F 38 40$:  SOBGTR RO,10$ ‘BUMP TO NEXT HASH BUCKET 
05 9 RSB 
1 00 
1 01; . PAGE 
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~SBTTL DELETE_TABLE - DELETE A LOGICAL NAME TABLE 
DELETE_TABLE = DELETE A LOGICAL NAME TABLE 
THIS ROUTINE TAKES A TABLE HEADER AND gh 
FIRST ALL OF THE CHILDREN OF THE TABLE ARE 


E 
D 
; THIS ROUTINE, THEN ALL OF THEN NAMES DEFINED 
: AND FINALLY tue LOGICAL NAME BLOCK CONTAININ 


ct 
mm 


INPUTS: 


R5 = oe es Erep. LIST OF LOGICAL NAME BLOCK CONTAINING TABLE HEADERS TO 


IT IS ASSUMED THAT THE ADDRESS OF THE TABLE HEADER IS STORED WITHIN 
LNMBS$L_BLINK(RS). 


IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR WRITE ACCESS, 

oF ee THE CALLER HAS THE PRIVILEGE OF DELETING THE LOGICAL NAME 
OUTPUTS: 

ALL OF THE NAMES DEFINED WITHIN THE TABLE HEADER ARE DEL 

ALL_OF THE CHILDREN OF THE TABLE HEADER ARE DELETED (THI 

prea eve. a OF THEIR CHILDREN, AND ALL OF THE NAMES DEF 

STORAGE AND QUOTA IS RETURNED. 


» R2, R3, R4, and R5 ARE MODIFIED. 
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DELETE_TABLE: 

MOVL  _RS,RO SADDRESS OF CURRENT TABLE HEADER'S LNMB 
BNEQ  10$ ‘BRANCH IF ONE PRESENT 

MOVL #SS$_NORMAL ,RO SRETURN SUCCESS une ALL DONE 


MONO 


oo-9 


; DELETE ALL OF THE CHILDREN OF THE CURRENT TABLE HEADER. 


10$: MOVL LATE BLINK(RO) ,R1 sADDRESS OF TABLE HEADER 
MOVL NMTHSC_ CHILD(R15 ,R2 ADDRESS OF CHILD TABLE 


D 
MOVL CRATHSL NAME (R2),R1 sADDRESS OF NAME ee OF CHILD 
BSBW DELETE _ENTRY :DELETE THE CHILD (PUT IT ON THE LIST) 
BRB DELETE_TABLE ;CONTINUE THE DELETION PROCESS 


—GOwooe 


Wo" Oo 9 


DELETE ALL OF THE NAMES DEFINED WITHIN THE CURRENT TABLE HEADER. 


208: PUSHL LNMBSL_FLINK(RO) rte AND SAVE LIST POINTER 
PUSHL RO SAVE CURRENT LOGICAL NAME BLOCK ADDRESS 
MOVL LNMTHS$L_HASH(R1) ,R3 ;HASH TABLE ADDRESS 
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LNMSUB = LOGICAL NAME RELATED SUBRO TNes | 16-SEP=1 AX/VMS By -00 Pa LN 
v04-000 DELETE TABLE - DELET rE A LOGICAL NAME TAB g SEp- 1382 88: ie: 33 SYS.SRC CNM UB.MAR; 1 “9 %) vO 
2 Be 1 ; 1 CLRL R2 sALL ACCESS MOD 
FF9A 0 91 1 BSBwW DELETE manes ;DELETE NAMES IN THIS TABLE 
BA 1gA 1 POPR #*M<R1,R5> RESTORE NAME Bock ADDRESS AND LIST PTR 
FF 0 Q12gC 106 BSBW DELETE Ls DELETE THE CURRENT LOGICAL NAME BLOCK 
Dd 11 } f \ rt: BRB DELETE_TABLE ITERATE UNTIL LIST IS EMPTY 
131 1066 ; . PAGE 
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[NAS CHECK PROF - CHECK ACCESS TO A LOGIC g- -SEP=1 1382 88: 22: 33 YeYS. SRCIJLNMSUB.MAR; 1 - (93) 

Z .SBTTL LNMSCHECK_PROT = CHECK ACCESS TO A LOGICAL NAME TABLE 
f ; LNMSCHECK_PROT = CHECK ACCESS TO A LOGICAL NAME TABLE 
131 1 ce : THIS ROUTINE IS CALLED TO CHECK ACCESS TO A LOGICAL NAME TABLE, USING ITS 
i f : OBJECT RIGHTS BLOCK. 
131 1 ae : ASSUMPTION: THE LOGICAL NAME TABLE HAS AN ASSOCIATED OBJECT RIGHTS BLOCK 
id: : LNMTHSL_CHP(R1) 
131 1 28 ; CURRENTLY, ONLY SOGW PROTECTION IS ACTUALLY CHECKED. ACCESS MODE 
131 1079 : CHECKING [Ss H HANDLED BY THE CALLING ROUTINE AND ALL OTHER SECURITY 
1 ! ! e : CHECKS ARE NYI 

9131 1 : : INORDER TO PROVIDE COMPATIBLE ACCESS TO THE GROUP AND SYSTEM LOGICAL NAME 
131 1083 : TABLES ACROSS RELEASES HE FOLLOWING ALGORITHM (WHICH WILL ALLOW ACCESS 
131 1084 : UNDER SPECIAL SETS OF CIRCUMSTANCES TO THESE TABLES EVEN IF ACCESS IS DENIED 
19 5 : BY SOGW PROTECTION) 1S IMPLEMENTED: 
131. 10 ; : IF SOGW PROTECTION 

0131 1088 : THEN 

o1 1089 ; eugene TURN SUCCESS 

1 Hi : IF OTHER THAN R OR W ACCESS IS REQUESTED 

0 1098 : ae RETURN FAILURE 

1 1095 : IF GROUP LOGICAL NAME TABLE 

4 : 344 ; If GRPNAM AND TABLE IS GROUP TABLE FOR THE CALLER 

1 1099 : RETURN SUCCESS 

or 1101 : RETURN FAILURE 

91 1108 : IF SYSTEN LOGICAL NAME TABLE AND SYSNAM 

4 1105 ; euseRETURN SUCCESS 
1107 : RETURN FAILURE 
131 1109 : INPUTS: 
131 #1111: R1 = ADDRESS OF LOGICAL NAME TABLE HEADER. 
131 1118 : R2 = ACCESS MASK TO USE FOR THE CHECK. 
1113 : R4 = CURRENT PCB ADDR 
1115 : OUTPUTS: 
131 i413 : RO = RETURN STATUS FROM THE EXESCHKPRO SUBROUTINE. 
131 1118 : (SUCCESS IN TWO SPECIAL CASES - SEE ABOVE) 
He ; R2 IS DESTROYED. ALL OTHER REGISTERS PRESERVED. 
1 121 ° 
1 i i ; LNMSCHECK_PROT:: sCHECK ACCESS TO A LOGICAL NAME TABLE 

53 pp 131 (11 POSHL R3 TSAVE REGISTERS 
7¢ 51 7D 0133 1124 MOV. —-R1,-( SP) 
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BEQL 
BRB 
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sUSEREADALL>, sole ;USER HPCTL FLAGS FIELD 
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OVE CHPCT 
sRESTORE REGISTERS 
RETURN IF OK TO ACCESS 
;OTHER THAN R OR W ACCESS REQUESTED? 

:1F SO THEN RETURN FAILURE 
ds THIS A ce ,gerce NAME TABLE? 
Rig es IF CALLER LACKS GRPNAM 
DRESS OF OBJECT RIGHTS BLOCK 
Mat THe PCALLER S GROUP LOGICAL 


RETO URN SUECESS IF 
;RETURN FAILURE IF It ISN'T 


sIS_THIS THE SYSTEM LOGICAL NAME TABLE 
;RETURN FAILURE IF IT ISN'T 
;RETURN FAILURE IF CALLER LACKS SYSNAM 


; CHANGE sane OF ROUTINE TO SUCCESS 
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#*C<ARMSM_READ! = 
ARMSM_WRITE>,R2 
30 
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ae FLAGS ( 
LNMTHSL CORB (R1) ,R2 
ORBSL- ~buNneRs 3 (RS) 
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LNATHSB FLAGS( R1),30$ 
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R SO PAGED BLOCK 5-S SYS.SRCILNMSUB.MAR; 1 
+ -SBTTL LNMSDELBLK - DELETE P1 OR SO PAGED BLOCK 
; LNMSDELBLK = DELETE P1 OR SO PAGED BLOCK 
; THIS ROUTINE IS CALLED TO DELETE A CHUNK OF P1 OR SO PAGED MEMORY. 
INPUTS: 

RO = ADDRESS OF ENTRY TO BE DELETED. 
OUTPUTS: 
NONE 
STORAGE IS RETURNED TO THE APPROPRIATE ALLOCATION REGION. 
RO, R1, R2, AND R3 ARE MODIFIED. 
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NMSDELBLK ;DELETE PAGED BLOCK 

ROViuL LNMBS$W_SIZE(RO),R1 :SIZE_OF BLOCK 

BBS :1F SET, SYSTEM SPACE TABLE 

JMP avEXESDEAP1 ;DEALLOCATE PROCESS DYNAMIC MEMORY 
10$ JMP a#EXESDEAPAGED ;DEALLOCATE SYSTEM PAGED MEMORY 
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LNMSDELETE = DELETE LOGICAL NAME TABLE ENTRY 
S ROUTINE IS CALLED TO DELETE A LOGICAL NAME TABLE ENTRY, RETURN ITS 
AGE TO THE APPROPRIATE ALLOCATION REGION, AND RETURN N 1T§ Q QuoTA. 

HE NAME IS A TABLE HEADER, THEN ALL NAMES IN THE TABLE ARE ALSO 

TED AND ANY TABLES OF WHICH THIS TABLE IS THE PARENT ARE DELETED. 


sf ties L ESE — WILL ALWAYS BE RETURNED IF AN ATTEMPT IS MADE TO DELETE 


INPUTS: 
R1 = ADDRESS OF ENTRY TO BE DELETED. 


IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR WRITE ACCESS, 
age: THE CALLER HAS THE PRIVILEGE OF DELETING THE LOGICAL NAME 


THI 
STOR 
IF T 
DELE 
A PR 
4A 


OUTPUTS: 
RO = SS$_NOPRIV IF THE LOGICAL NAME TABLE ENTRY IS A DIRECTORY. 
RO = SS$_SUCCESS 
THE ENTRY IS REMOVED FROM ITS RESPECTIVE LOGICAL NAME TABLE AND THE 
STORAGE {3 RETURNED TO THE APPROPRIATE ALLOCATION REGION. IF THE ENTRY 
HAS AN ASSOCIATED MAILBOX UCB ADDRESS, THEN THE LINKAGE FROM THE UCB 
TO THE LOGICAL NAME ENTRY IS CLEARED. 


» R2, AND R3 ARE MODIFIED. 


LNMSDELETE: ;DELETE LOGICAL NAME TABLE ENTRY 

BBC #LNMBSV_NODELETE,- 4 fg el (NODELETE WILL ,* 
LNMB$B_FLAGS(R1),10$ :1F NOT THEN G i TE TH 

MOVZWL iss. NOPRIV,RO OTHERWISE RETURN A PRIVILEGE VIOLATION 
BRB 208 ~ 

10$: MOVQ R4,-(SP) sSAVE REGISTERS R4 AND R5S 
CLRL R5- ;CLEAR LINKED LIST OF TABLE HEADERS 
BSBW DELETE_ENTRY sDELETE THE LOGICAL NAME TABLE ENTRY 
BSBW DELETE" TABLE s;DELETE THE TABLE HEADER IF IT IS ONE 
MOVQ (SP)+,R4 sRESTORE REGISTERS R4 AND R5 

20$: RSB RETURN STATUS 
- PAGE 
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~-SBTTL LNMSDELETE_LNMB - DELETE LOGICAL NAME TABLE ENTRY PLUS ALIASES 
LNMSDELETE_LNMB = DELETE LOGICAL NAME TABLE ENTRY PLUS ALIASES 


THIS ROUT INE 13 GALLED fe. peLere A LOGICAL NAME TABLE ENTRY TOGETHER WITH ALL 
OF ITS OUTER ACCESS MODE ALIASES. STORAGE FOR THE bes ree ENTRIES IS RETURNED 
TO THE APPROPRIATE ALLOCATION N REGION, AND aveTA +s RETURNED AS WELL. IF ANY 

HE ENTRIES DELETED ARE LOGICAL NAME TABLES, THEN ALL NAMES WITHIN THE 
TABLE ARE ALSO DELETED AS WELL AS ANY TABLES OF WHICH THIS TABLE IS THE 
PARENT OF. 
INPUTS: 


Ri = ADDRESS OF LOGICAL NAME TABLE ENTRY 
IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR WRITE ACCESS, 
AND THAT THE CALLER HAS THE PRIVILEGE OF DELETING THE LOGICAL NAME 
TABLE ENTRY. 
OUTPUTS: 
RO = SS$_NOPRIV IF THE LOGICAL NAME TABLE ENTRY IS A DIRECTORY. 
SS$_SUCCESS. 
SS$_NOLOGNAM IF THERE ARE NO SUCH LOGICAL NAMES. 


THE ENTRIES ARE REMOVED FROM THEIR LOGICAL NAME TABLE AND THE STORAGE 
I$ RETURNED TO THE APPROPRIATE ALLOCATION REGION. IF ANY OF iw aaa 


FROM THE UCB TO THE LOGICAL NAME TABLE ENTRY IS CLEARED BY THIS 
ROUTINE’S CALLER. 


R1, R2, AND R3 ARE MODIFIED. 
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SNNNS 
MEWS ODNOA UENO OD NA UENO OD NOU EWI OS OD NOUS WO OONOUS 
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LNMSDELETE_LNMB:: ;DELETE TABLE ENTRY AND ALL ALIASES 
7E 4 CLRL 0 =( SP) SINITIALIZE THREAD TO ZERO 
OC Al DD PUSHL MBSL_TABLE(R1) SADDRESS OF TABLE HEADER 
12 Al OF PUSHAB LNMBST-NAME+1(R1) [DESCRIPTOR OF LOGICAL NAME 
7E 11 A1 9A MOVZBL LNMBST~NAME(R1) ,-(SP) 
00000403 BF DD PUSHL #<NT_M7MODIFY a 8+- HASH BUCKET MIGHT BE MODIFIED 
PSLSE _OSER> ‘SEARCH ACCESS 
51 DD PUSHL : SAVE ADDRESS OF INNERMOST LNMB 
03 91 CMPB ss #PSLS$C_USER,- :1S INNERMOST LOGICAL NAME TABLE ENTRY 
0B Al ie KCMOBE(R1) AN USER ACCESS MODE NAME? 
07 «13 9 BEQL 0$ ‘IF $0, THEN IT IS ONLY ENTRY TO DELETE 
53 04 AE oe 9 MOVAL 4(S ELSE “SETUP TO) FIND OUTERMOST MODE ENTRY 
02€8 3 BSBW TNROPRE SEARCH ‘AND GO FIND IT 
51 oD 95 10$: PUSHL. RI ;SAVE ADDRESS OF CURRENT TABLE ENTRY 
2 10 36 BSBB_—s LNMSDELETE [DELETE CURRENT TABLE ENTRY 
1 BED) POPL RI SRESTORE ADDRESS OF DELETED ENTRY 
1150 =~€ 38 BLBC ~— RO, 308 SRETURN ANY ERROR ON DELETION 
6— 51 01 00 CMPL ~—s_ R11, (SP) sWAS INNERMOST ENTRY JUST DELETED? 
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NAME RELAT 
LNMB = DE 
1 BEQL 20$ 
1 MOVAL 4(SP),R3 
1 BSBW NMS CONT SEARCH 
4 BRB 
1 $: MOVL  #SS$_NORMAL.RO 
1 § gS: ADDL2 #NT_R_LENGTH+4, SP 
1 8 RSB 
1 
1310 ; PAGE 
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O THEN GO RETURN SUCCESS 
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V04= LNM HASH = DELETE ALL ENTRIES IN P=1984 SYS.SRCJLNMSUB.MAR; 1 
«SBTTL LNMSDELETE_HASH = DELETE ALL ENTRIES IN A HASH TABLE 

LNMSDELETE_HASH = DELETE ALL ENTRIES IN A HASH TABLE 


THIS ROUTINE IS CALLED TO DELETE ALL NAMES WITH A SPECIFIED OR GREATER 
ACCESS MODE FROM A SPECIFIED HASH TABLE. 


INPUTS: 
Re = ACCESS MODE. 
R3 = ADDRESS OF HASH TABLE. 
R4 = PCB ADDRESS. 
THE LOGICAL NAME MUTEX WILL BE a SCKEe FOR WRITE ACCESS 
AND THE CALLER IS ASSUMED TO HAVE THE PRIVILEGE OF DELETING 
THE LOGICAL NAME TABLE ENTRIES WITHIN THE SPECIFIED TABLE. 


OUTPUTS: 
me Batty ot! rly HASH TABLE IS SCANNED AND ALL NAMES 
WITH ACCESS MODE GREATER THAN OR EQUAL TO 
THE SPECIFIED ACCESS MODE ARE DELETED. QUOTA IS RETURNED. 


R1, R2, AND R3 ARE MODIFIED. 
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LNMSDELETE_HASH:: 
SAVIPL 7SAVE CURRENT IPL ON STACK 
7E 54 7D MOVa R4,-(SP) TSAVE REGISTERS 
056A 30 BSBW LNMSLOCKW ;LOCK LOGICAL NAME MUTEX FOR w"ITING 
51 4 CLRL R1 NO SPECIFIC TABLE HEADER 
FEB7 0 BSBW DELETE_NAMES [DELETE THE NAMES WITHIN THE TABLE 
54 8 D MOVQ (SP)+,R4 RESTORE REGISTERS 
056 30 BSBW LNMSUNLOCK UNLOCK THE LOGICAL NAME MUTEX 
ENBINT RESTORE IPL TO ITS VALUE ON ENTRY 
50 O01 3C MOVZWL #SS$_NORMAL ,RO ;SUCCESS ALWAYS 
05 : RSB ‘RETURN STATUS 
350 ; . PAGE 
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ig .SBTTL LNMSDELETE_TAB - DELETE ALL ENTRIES IN A LOGICAL NAME TABLE 
; LNMSDELETE_TAB = DELETE ALL ENTRIES IN A LOGICAL NAME TABLE 


; THIS ROUTINE IS CALLED TO DELETE ALL NAMES WITH A SPECIFIED OR GREATER 
; ACCESS MODE FROM A SPECIFIED LOGICAL NAME TABLE. 


mt 

ae 
RO 
oq 
me 


: INPUTS: 
R1 = ADDRESS OF TABLE HEADER. 
R2 = ACCESS MODE. 
IT I$ ASSUMED THAT THE LOGICAL NAME MUTEX 1S LOCKED fOR WRITE ACCESS, 
AND THAT THE CALLER HAS THE PRIVILEGE OF DELETING THE LOGICAL NAME 
TABLE ENTRIES WITHIN THE SPECIFIED TABLE. 


OUTPUTS: 
THE APPROPRIATE HASH TABLE IS SCANNED AND ALL NAMES CONTAINED IN 
THE SPECIFIED TABLE WITH AN ACCESS MODE GREATER THAN OR EQUAL TO 
THE SPECIFIED ACCESS MODE ARE DELETED. QUOTA IS RETURNED. 


R1, R2, AND R3 ARE MODIFIED. 
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LNMSDELETE_TAB:: ;DELETE LOGICAL NAME TABLE ENTRY 
54 7D mova "RG, =( SP) ;SAVE REGISTERS 
53 01A1~ 00 MOVL LNMTH$L_HASH(R1) ,R3 s ADDRESS OF HASH TABLE 
FEAO 36 BSBW DELETE_RAMES DELETE THE NAMES WITHIN THE TABLE 
54 8E 7D MOVQ (SP) + S RESTORE REGISTERS 
a. to MOVZWL #SS$_NORMAL,RO [SUCCESS ALWAYS 
05 R ‘RETURN STATUS 
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LNMS = LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro v04-00 Page 31 
42080 [NAS INIT PROT - INIT A LOGICAL NAME TABL mises 99:20:33 YOYS  SRCIENMSUB MARS 1 ’ da 
8 7 F -SBTTL LNMSINIT_PROT <= INIT A LOGICAL NAME TABLE'S OBJECT RIGHTS BLOCK 
8 5 3 LNMSINIT_PROT = INIT A LOGICAL NAME TABLE’S OBJECT RIGHTS BLOCK 
B 1391 ; THIS ROUTINE IS CALLED TO INITIALIZE THE OBJECT RIGHTS BLOCK FOR A SHAREABLE 
B 1 3¢ ; LOGICAL NAME TABLE. IT IS ASSUMED THAT THIS ROUTINE IS NEVER CALLED FOR A 
B 1393 ; PROCESS-PRIVATE LOGICAL NAME TABLE. CURRENTLY, ONLY SOGW PROTECTION AND UIC 
B 1 34 ; ARE ACTUALLY USED. ACCESS MODE CHECKING IS HANDLED BY THE CALLING ROUTINE 
; ! 4 3; AND ALL OTHER SECURITY CHECKS ARE NYI. 
; } 3 3 INPUTS: 
B 1 38 ; RO = ADDRESS OF STORAGE TO USE FOR ORB. 
B 1400; R1 = ADDRESS OF PARENT LOGICAL NAME TABLE LNMTH. | 
B 1401: R2 = ADDRESS OF LOGICAL NAME TABLE LNMTH. | 
B 140¢ ; R4 = ADDRESS OF LOGICAL NAME TABLE LNMB. 
6 B 1403 ; R6 = ACCESS MASK TO ASSIGN TO THE TABLE. 
4 8 1408 ; 4(SP) = CURRENT PCB ADDRESS. 
9 8 1406 : OUTPUTS: 
6 B 1408 ; RO, R3 DESTROYED. 
B 1409 ; ALL OTHER REGISTERS PRESERVED. 
0228 1410 :- 
0558 tel2 
6 2B 1243 LNMSINIT_PROT:: :INIT ORB FOR A LOGICAL NAME TABLE 
30 7 co 02 e 1313 Sth wn UOT RD sALGIN ORB ON A QUADWORD BOUNORY 
05 A2. 60 OD a2 1 1416 MOVAL (RO), LNMTHSL_ORB(R2) :SAVE ADDRESS OF ORB IN TABLE HEADER 
5304 AE D 5 141 MOVL  4(SPS,R3 SRETRIEVE PCB ADDRESS 
80 OoOBC C 0 0239 1418 MOVL  PCB$L_UIC(R3),(RO)+ [SET OWNER UIC 
80 FFFF 8F C 8 5 1419 MOVZWL #*XFFFF,(RO)+ sINITIALIZE ACL MUTEX 
80 00490058 8F DO 0243 1420 OVL  #<DYNSC‘ORB +- ‘SET STRUCTURE TYPE IN FLAGS FIELD 
0 4A 1421 ORBSC_LENGTH>, (RO) + [SET STRUCTURE SIZE 
80 D4 026A 14 : CLRL = (ROD + [SPARE WORD AND REF COUNT NOT USED 
80 7C 024C 14 CLRQ = (ROD + [NO ACCESS MODE CHECKS ARE MADE 
80 56 04 00 EF 4f 1424 EXTZV #0, #4,R6,(RO)+ [SET SYSTEM PROTECTION FIELD 
80 56 06 O64 EF 53 1425 EXTZV #4, #4,R6,(RO)+ [SET OWNER PROTECTION FIELD 
80 56 04 O08 EF 58 1426 EXTZV #8. #4.R6.(RO)+ :SET GROUP PROTECTION FIELD 
80 56 04 OC EF 290 1407 EXTZV #12,#4.R6,(RO)+ [SET WORLD PROTECTION FIELD | 
0 7C 0262 1428 CLRQ = (ROS+ ‘NOTE NO ACL AS YET | 
4 BB 0264 1429 PUSHR grMcRe R4,RS> [SAVE REGISTERS (R1 PRESERVED BY MOVC) | 
00 61 09 2C 0266 1430 movCS #0,(R15,#0,- SINITIALIZE MINIMUM AND MAXIMUM 
60 6A 1431 #<ORBSS MIN CLASS+- ‘CLASSIFICATION MASKS TO 0 
6C 14 : ORBSS MAX. CCASS>, (RO) 
34 BA 026C 14 POPR #*M<R2,R47R5> :RESTORE REGISTERS 
05 026E 1434 RSB S RETURN 
6F 1435 
6F 1436; . PAGE 


D 16 
LOGICA NAME T 'SoSEP-1oBG Oo:aci08 fens eRcteMmeue Mage Page 75, 
: .SBTTL LNMSINSLOGTAB = INSERT IN LOGICAL NAME TABLE BY ADDRESS 
; LNMSINSLOGTAB = INSERT IN LOGICAL NAME TABLE BY ADDRESS 
: THIS ROUTINE IS CALLED 10 INSERT A NEW ENTRY INTO THE LOGICAL NAME TABLE 


SPECIFIED BY TABLE HEADER ADDRESS. INSERTION IN THE CASE OF AN ENTRY FOR 

NEW LOGICAL NAME TABLE INCLUDES THE LINKING THE NEW TABLE ENTRY to PARENT 
IRED QUOTA DEDU 
ALREADY E AE 


LNMS -L 
v04-000 [nis 


; OF 
; AND SIBLINGS AND ANY REQU IONS. 


I! 
; CT 
; IF_AN ENTRY (OR ENTRIES) ADY EX! AT AN OUTER ACCESS MODE AND THE NEW 
; NAME IS UNALIASABLE, THE EXISTING NAME(S) IS (ARE) DELETED. 


; haa ENTRY ALREADY EXISTS IN AN INNER ACCESS MODE, AN ERROR IS 


; IF AN fee lorcet ENTRY ALREADY EXISTS, IT IS DELETED UNLESS CREATE IF IS 
; SPECIFIED IN WHICH CASE THE NEW ENTRY WILL BE JUST BE MAPPED TO THE EXISTING 
; ENTRY, AND NO NAMES ARE SUPERSEDED. 


; IF THE a ENTRY IS FOR A “ety Po TO_BE CONTAINED WITHIN EITHER THE 

; PROCESS OR SYSTEM DIRECTORY LOGICAL NAME TABLE, THEN THE HASH CODE VALUE OF 

; EACH OF TH HE LOGICAL NAME'S EQUIVALENCE STRINGS IS COMPUTED AND STORED WITHIN 
; THE CORRESPONDING TRANSLATION BLOCK. 

; INPUTS: 


R1 = yt end fy OF LOGICAL NAME BLOCK. 


FN Pe Fd re 9 ee 


T IS ASSUMED THAT THE HIGH ORDER BIT 1s "UNUSED AND 0). 
IT IS_ASSUMED THAT THERE IS SUFFICIENT QUOTA IN THE CONTAINING TABLE 
(AND THE PARENT'S QUOTA HOLDER IN THE CASE OF A LOGICAL NAME TABL 
ENTRY) FOR THE INSERTION OF THE NEW ENTRY AND THE DEDUCTION OF ITS 
SEPARATE QUOTA WHEN APPROPRIATE. 
IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR WRITE ACCESS. 
; OUTPUTS: 
RO CONTAINS A SUCCESS STATUS. 


THE LOGICAL we IS INSERTED IN THE SPECIFIED TABLE. 
QUOTA IS DEDUCTED WHEN APPROPRIATE. 


RO = SS$ So et ad ~ NEW a WAS INSERTED. 
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RO = SS$"NORMA NEW TABLE ~*~ oe ae TO EXISTING TABLE OR 
NEW LOGICAL NAME WAS INSERTED. 
RO = SS$_SUPERSEDE - LOGICAL NAME NSUPERCEDED EXISTING NAME. 
AND NEW LOGICAL 


R1 CONTAINS ADDRESS OF LNMB MAPPED TO IF CREATE-IF SET 
NAME TABLE ENTRY IS MAPPED TO EXISTING ENTRY. 


RO CONTAINS AN ERROR STATUS. 


Re SS$_DUPLNAME = NON-ALIASABLE DUPLICATE EXISTS. 
R SSS"PARENT_DEL = DELETEION OF PARENT WOULD HAVE OCCURRED. 
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: 3. AN 
MOD 


ISTING LOGICAL NAME TABLE ENTRY AT THE SAME ACC 
AME AS T 


1 mi teh 9 90:70: 33 ope Macro V04-00 Page 


NAME T 5=SEP=19 SYS.SRCILNMSUB.MAR; 1 


EXISTING LOGICAL NAME TABLE ENTRY IS FOUND BUT IT IS AT AN OUTER ACCESS 


OGICAL NAME TABLE ENTRY WITH THE SAME NAME AS 
EEN, AND THE SEARCH CONTINUES. 
SET: 


N 
NAME TABLE ENTRY IS DELETED, AND THE SEARCH 


EXISTING LOGICAL NAME TABLE ENTRY IS FOUND AT THE SAME ACCESS MODE. 


THE CREATE_IF BIT IS SET: 
THE NEW ENTRY IS MAPPED TO THE EXISTING ENTRY WITH THE SAME NAME AND 
ACCESS MODE. 


THE CREATE_IF BIT 
AN ERROR IS RETURN 


Js BUT THE NODELETE B 
THE PARENT TABLE SPE 
DP 
I 
I 


IT IS: 

ATTEMPTED TO DELETE 
INDIRECTLY THROUGH THE 
DELETION OF A GRAN 
NEITHER THE coeare 


THE EXISTING ENTR 


an PO 
al 4 


OR THE NODELETE BIT IS SET: 
ED, AND THE SEARCH CONTINUES. 


;SAVE THE ATTRIBUTES 
sASSUME SUCCESS 
;SEARCH FOR NAME IN TABLE 


sNOTHING FOUND 
Ds: COMPARE ACCESS MODES 


;BRANCH IF OWNED BY AN INNER MODE 
BRANCH IF OWNED BY AN OUTER MODE 


R2 

#SS$_NORMAL 
LNMSPRESEARCH 
RO,50$ 
LNMBS$B_ACMODE(R 
LNMB$B_ACMODE (R 
40$ 

30$ 


1) 
5) 


ESS MODE WAS FOUND TO 
HAT OF THE NEW TABLE ENTRY. EITHER MAP THE NEW ENTRY 
el OR DELETE THE EXISTING ENTRY DEPENDING UPON THE 


ME N 
EXISTING 
CREA 


SLNMSV_CREATE_IF .4(SP) 0278 ;GO RETURN IF MAPPING NEW TABLE ENTRY 
BRid 90$ ;ONTO EXISTING TABLE ENTRY 
#LNMBSV_NODELETE,- 71F TABLE ENTRY IS A (GRAND)PARENT TO 
onal LwAgSB_FLAGS(RI) ,305 ;THE NEW TABLE ENTRY THEN RETURN ERROR 


TING LOGICAL NAME TABLE ENTRY AT AN OUTER AC 
E SAME NAME AS THAT OF THE NEW TABLE ENTRY. 
AL NAME TABLE ENTRY HAS BEEN ENCOUNTERED, OR 
TING OF CREATE_IF. 


Ao zw 


(17) 


LNA = LOGICAL NAME RELATED SUBROUTINE 16-SEP-1984 00:30: AX/VMS Macro v04-00 Pa 5 
0000 CNAS IHS GTAB - INSERT IN LOGICAL NAME T ety 90:70:38 YeYS. SRCJLNMSUB.MAR; 1 » }) 
4 AE 18 €1 30$: BBC #LNMSV_CREATE_IF,4(SP),35$ BRANCH IF CREATE_IF NOT SET 
88 be AE IF ¥. BBSS AD at sett ;MARK OUTER ACCESS NAMES SEEN 
OAs 61 i 31$:  MOVAB (R15,NT_L’ THREAD(R3) : SETUP TO CONTINUE with NEXT BLOCK 
16 «1 BRB 7$ AND GO CONTINUE SEAR 
6E 0631 ef 3¢ 35$: MOVZWL #$S$_SUPERSEDE , (SP) :upparE STATUS RETURN 
bb PUSHL SAVE REGISTERS OVER WDELETE, 
FED LNMSDELETE [DELETE A LOGICAL NAME BLO 
3 8ED POPL 3 SRESTORE THINGS 
06 50 «CE BLBS R0,37$ [CONTINUE IF DELETION SUCCESSFUL 
6E 30 bo MOVL RO (SP) SOTHERWISE SAVE ERROR AND TERMINATE 
008 1 BRWw $ STABLE ENTRY INSERTION ATTEMPT 
0219 30 37$:  BSBW LNMSCONTSEARCH sCONTINUE SEARCHING FOR MORE MODES 
B91 BRB 5$ SLOOP OVER ALL ALIASING $ 
: AN EXISTING LOGICAL NAME TABLE ENTRY AT AN INNER ACCESS MODE WAS FOUND TO 
; HAVE THE SAME NAME AS THAT OF THE NEW TABLE ENTRY. IF THIS LOGICAL NAME TABLE 
: ENTRY DOES NOT. ALLOW ALLIASES THEN RETURN AN ERROR. OTHERWISE, EITHER INSERT 
: THE NEW TABLE ENTRY, OR RE-START THE SEARCH FROM THE BEGINNING DEPENDING UPON 
; WHETHER CREATE_IF I$ SET, AND IF IT 1S, WHETHER ANY IDENTICAL NAMES WERE 
: FOUND TO EXIST AT OUTER ACCESS MODES. 


: 
2 
} 
: 
2 


03 10 Al 00 €1 40$: BBC #LNMBSV_NO_ALI 


- CONTINUE IF ALIASABLE 
LNMBS$B_FLAGS(R 50s 


0081 31 BRW 100$ :BRANCH IF NOT ALIASABLE 
: AN EXISTING LOGICAL NAME TABLE ENTRY WAS NOT FOUND TO HAVE THE SAME SAME NAME 
+ AS THAT OF THE NEW TABLE ENTRY AT THE ACCESS MODE SEARCHED. EITHER INSERT THE 
: NEW TABLE ENTRY, OR RE-START THE SEARCH FROM THE BEGINNING DEPENDING UPON 
; WHETHER CREATE_IF IS SET, AND IF IT IS, WHETHER ANY IDENTICAL NAMES WERE 
+ FOUND TO EXIST AT OUTER ACCESS MODES. 
0A 04 AE 18 ES 50$ BBCC #LNMSy CREATE_IF,4(SP),55$; INSERT NEW ENTRY IF CREATE_IF NOT SET 
05 04 AE FES BBCC }3=—«._-«s# 31, 4 (SP) , 55$~ 30R IF OUTER ACCESS MODE NAMES NOT SEEN 
A344 CLRL  NT_L_THREAD(R3) [GET SET TO RE-START SEARCH 
9F 61 BRB 208 :GO RE-START SEARCH 
52 110A 09 55$:  MOVL L_THREAD(R3) R? sADDRESS OF PREVIOUS LNMB BLOCK 
04605 52 D MOVL b-tanose _BLINK(R5) : LNMB BLOCKS BACKPOINTER 
55 OD MOVL RS. LNMBSL~ =ELINK (RE) TRESET PREVIOUS LNMB BLOCKS FRONTPOINTER 
65 51 »D MOVL = RI jtnmBst- “FLINK(RS) : E LNB BLOCKS FRONTPOINTER 
04 1 BEQL 60s [BRANCH IF NEW LNMB BLOCK IS AT LIST END 
04 Al 5 00 MOVL 5, LNMBSL_BLINK(R1) [RESET NEXT ENME BLOCKS BACKPOINTER 


PVPS VST BBS BS ES BS BBE ENA NI AAI NIWIIIOPOPPIPUPOPUNINID 2 PO OOO OO 


OEP AR 2S OD NA NEW 0 OD NA UE WWII 0 ONAN EW O O08 NOAUI EWI 0 OONOAUES WOO 


DDS OSD. OS DS DS OO DDD DOP AAA AAA AAA AA AA AAA A AA AAA A OS 


te NEW ENTRY IS A LOGICAL NAME TABLE THEN THE FOLLOWING ACTIONS ARE 


9-9. 


1. THE LOGICAL NAME BLOCK IS LINK 


E ATE 
TABLE, AND THUS, AS THE FIRST S 


IAT ITS PARENT 
T OF 
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NAME RELATED SUBROUTI Nes 16=SEP=1984 00:30: AX/VMS Macro v04-00 P 
GTAB’= INSERT INLOGIEM NAME T SaSEP-1one Bosce sos PateM es Hacee OKz00 vee 35, 
1666 ; 2. THE STATUS OF THE INSERTION IS CHANGED TO SS$_LNMCREATED IF NO LOGICAL NAME | 
168? ; TABLE ENTRIES HAD BEEN DELETED. 
1865 : 3. QUOTA CONSISTING OF ANY QUOTA SPECIFICALLY ALLOCATED TO THE NEW TABLE IS 
1670 : DEDUCTED FROM THE QUOTA HOLDER OF THE PARENT LOGICAL NAME: TABLE. 
1672 © 
1698 60$: BBC #LNMBSV_TABLE ;BRANCH IF THE NAME BLOCK IS NOT FOR 
1674 LNMBSB “FLAGS (R5), 80$ A NEW LOGICAL NAME TABLE 
1976 70$:  MOVZBL LNMBST_NAME(RS) .R sSIZE OF NAME STRING 
167 MOVAB  LNMBS$T-NAME+1(R5)CROJ,R2:ADDRESS OF TRANSLATION BLOCK 
1008 MOVAB LNMX$T~ _XLATION+1(R2), R2 : ;ADDRESS OF BLOCKS TABLE HEADER 
1680 MOVL —LNMTHSL PARENT (RQ) ,R1 ;ADDRESS OF PARENT'S TABLE HEADER 
1681 MOVL §LMMTHSLCHILD LINK KIN NEW TABLE ENTRY AS THE 
1688 LNMTHSL~ CHBLIN bad) TMMEDIA TE CHILD OF THE PARENT AND 
1683 MOVAB tho) LNATHSL_ ChICD<RID TAS THE FIRST SIBLING IN THE LIST 
1886 CMPW =: #SS$_SUPERSEDE, (SP) ;WAS A LOGIGAL NAME SUPERSEDED? 
1686 BEQL $ ‘BRANCH IF YES 
1687 MOVZWL #SSS_LNMCREATED,(SP) | :CHANGE STATUS IF NO 
1689 75$:  MOVL _—_LNMTHSL -QTABLE (RI) R1 :RETRIEVE PARENT'S QUOTA HOLDER 
1690 SUBL2 LNMTHSL“BYTESLM(R25,- :SUBTRACT QUOTA TO BE SPECIFICALLY 
1658 LNMTH$i_BYTES(R1) SALLOCATED TO THE NEW TABLE 
1693 ; 
1694 : DEDU CT THE SIZE OF THE NEW LOGICAL MAME ENTRY FROM THE QUOTA HOLDER OF THE 
1695 : CONTAINING LOGICAL NAME TABLE. 
1899 
1698 80S: WOVZUL LNMBSW_SIZE(R5) ,R3 sRETRIEVE SIZE OF NEW LOGICAL NAME ENTRY 
1699 MOV LNMBSL TABLE (R55 ,R1 ZRETRIEVE CONTAINING TABLE HEADER ADDR 
1700 MOVE LNMTHSC_QTABLE(R1).R2  :RETRIEVE QUOTA HOLDER'S ADDRESS 
1709 SUBL2 R3,LNMTASL_ MBYTES (RSD SSUBTRACT SIZE OF NEW TABLE ENTRY 
17 ; 
1704 : BUMP THE APPROPRIATE DIRECTORY SEQUENCE NUMBER IF THE CONTAINING TABLE 
1708 : IS ONE OF THE DIRECTORY TABLES. 
1707 ° 
17 BBC WLNMTHSV_DIRECTORY,- § ; DIRECTORY TABLE? 
17 LNATHSB FLAGS(R1).90$  :OKAY 
17 BBS ¥ 2 ‘BRANCH IF SYSTEM DIRECTORY 
71] INCL sac tr ser _LNMDIRSEQ SBUMP PROCESS DIRECTORY COUNTER 
1218 82$: INCL a@#LNMSGL_SYSDIRSEQ ;BUMP SYSTEM DIRECTORY COUNTER 
1715 ; 
1216 : IF THE NEW ENTRY IS FOR A LOGICAL NAME TO BE CONTAINED WITHIN EITHER THE 
1717 : PROCESS OR SYSTEM DIRECTORY LOGICAL NAME TABLE, THEN THE HASH CODE VALUE OF 
1718 : EACH OF THE LOGICAL NAME'S EQUIVALENCE STRINGS IS COMPUTED AND STORED WITHIN 
1719 : THE CORRESPONDING TRANSLATION BLOCK. 
1721 ° 
1734 83$: BBS #LNMBSV_TABLE,- :SKIP COMPUTATION AND STORAGE OF HASH 


= LOGICAL NAME RELATED SUBROUTINE 16-SEP-19 :30: AX/VMS Macro V04-00 Pa 7 
(NRSTNSLOGTAS - INSERT IN LOGICAL NAME T mt 90:30:33 SYS.SRCJLNMSUB.MAR; 1 on dy 
28 10 AS 1? 3 LNMBSB_FLAGS(R5),90$ | ;CODES IF THIS IS A LOGICAL NAME TABLE 
5511 AS 9 1705 MOVAB LNMBST_NAME(RS),RS :RETRIEVE ADDRESS AND SIZE OF LOGICAL 
Q : 9A ¢ 17 3 WOVZBL (R5)+,RO 
0 co F 17 ADDL2 RO,RS POSITION TO FIRST TRANSLATION BLOCK 
02 EO 73 17 § 85$: BBS #LNMX$V_XEND,- 3G0 RETURN IF LAST TRANSLATION BLOCK 
1A 74 1730 LNMX$B_FLAGS(R5) ,90$ 
51 04 AS 9E 76 «1731 MOVAB LNAXST “X¥LATION(R5) ,R1 ;RETRIEVE ADDRESS oe SIZE OF CURRENT 
50 8 9A 037A 17 é MOVZBL (R1)+,RO S TRANSLATION BLOCK'S EQUIVALENCE STRING 
7E 50 7D O37D 17 MOVG ,-(§P) [SAVE ADDRESS AND SIZE ON STACK 
0168 3 9 1734 BSBW NMSHASH ;DETERMINE AND STORE THE CURRENT 
02 AS 2 1735 MOVW ty LNMX$W_HASH(RS) SEQUIVALENCE STRING'S HASH CODE VALUE 
50 BE D 7 17 : MOVa (SP) »RO ~ RESTOR DDRESS AND SIZE OF STRING 
55 51 50 1 A 1? ADDL3 RO, R1.R5 SPOSITION TO NEXT TRANSLATION BLOCK 
—2 11 0 BF 17 8 BRB as ‘AND CON 
$390 1760 
0390 1741 : RETRIEVE THE STATUS TO BE RETURNED, CLEAN THE NAME TRANSLATION CONTROL BLOCK 
0390 \7tg ; FROM THE STACK AND RETURN. 
0390 1743: 
0390 1744 
50 BEDO O 38 1745 90$ POPL RO sFETCH STATUS 
SE 18 CO 039 1246 ADDL #NT_K_LENGTH+4,SP [CLEAN BLOCK FROM STACK 
95 0396 174 RSB SEXIT 
6E 0094 8F 3C 0397 1748 100$:  MOVZWL #SS$_DUPLNAM, (SP) [TRIED TO SUPERCEDE UNALIASABLE NAME 
F 11 ths 1749 RB ;JOIN MAI 
6E 2254 BF 3c «(0 H 1750 110$: MOVZWL #SSS$_PARENT_DEL, (SP) s TRIED TO DELETE (GRAND) PARENT 
EB 11. O3A 1751 BRB 90$ ;JOIN MAIN EXIT 
O3A5 1738 
O3A5 1753; ~ PAGE 
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SUBROUTINES :30:35 VAX/VMS Macro V04-00 2 
FOR LOGICAL NAME ~438e BSiz2:33 PENSE Heer, NOR=00 oe 38, 


+ .SBTTL LNMSSEARCHLOG = SEARCH FOR LOGICAL NAME 
; LNMSSEARCHLOG = SEARCH FOR LOGICAL NAME 


; THIS ROUTINE IS CALLED TO SEARCH FOR A LOGICAL NAME MATCH IN A LIST OF 
; LOGICAL NAME TABLES. 


me 
=x 
mr 


INPUTS: 
RO = LENGTH OF LOGICAL NAME STRING. 
R1 = ADDRESS OF LOGICAL NAME STRING. 
Re = LENGTH OF TABLE NAME STRING. 
R35 = ADDRESS OF TABLE NAME STRING. 
R5 = SEARCH ACCESS MODE IN LOW BYTE, 
CASELESS FLAG IN BIT 8, 
HIGH ORDER WORD 0. 
IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR READ ACCESS 
OUTPUTS: 


RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 


RO = SS$_NOLOGNAM = NO LOGICAL NAME MATCH FOUN 
R1 = ADDRESS OF LOGICAL NAME BLOCK ON WHICH SEARCH FAILED. 


RO LOW BIT SET INDICATES SUCCESS WITH: 
R1 = ADDRESS OF LOGICAL NAME BLOCK THAT CONTAINS MATCH. 
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SVD PVPS PUSS SUVS «OF 
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a a ee ee me ee a a 
0000900000909 0909090908 SINISE 


3A ALL OTHER REGISTERS ARE PRESERVED. 
3A 
3h LNMSSEARCHLOG: : SEARCH FOR LOGICAL NAME 
55 0D OQ3A PUSHL R5 :SAVE REGISTERS 
re h6Ue6lCOU - MOVa R2,-(SP) 
AA 
3AA ; PERFORM A PRE-SEARCH TO SEE IF THE TARGET LOGICAL NAME EXISTS AT ALL 
AA ; hae gh te ag OF EITHER CONTAINING TABLE HEADER ADDRESS OR ACCESS MODE. IF 
AA ; THE NAME EXIST THIN THE PROCESS-PRIVATE NAME SPACE WE WILL ALSO BE 
AA : PRE-POSITIONED TO THE FIRST LNMB IN THE LINKED LIST OF PROCES-PRIVATE LNMBs 
Aa 3; WITH THIS TA “ T wed LIKEWISE, IF THE NAME EXISTS WITHIN THE SHAREABLE NAME 
AA : SP WE WILL ALSO BE PRE-POSITIONED TO THE FIRST SHAREABLE LNMB IN THE LINKED 
aa ; LIST OF LNMBS WITH THIS TARGET NAME. 
AB 
43 7c AA CLRQ = (SP) :NAME BLOCK ADDRESS AND TABLE ID 
_ 2 7D A MOVa RQ. o~ (SP) LE NAME AND sate 
2? DD A 4 PUSHL ZACCESS MODE AND CASE FLAG 
53 E 00 5 MOVL SP ,R3 ;ADDRESS OF NAME TRANSL ATION BLOCK 
55 OQ000000°EF oD 0 MOVAL L“CNASAL HASHTBL,RS ; ADDRESS OF TABLE panrctae POINTERS 
OF 5E iF CE 0 BBS #31 Ne RANCH IF SMALL 
51 04 83 D 88 MOVL 4 (R5) RI TADDRESS OF PROCESS HASH TABLE 
5 : BEQL tts SKIP IF NO TABLE DEFINED 
0103 30 9 BSBW LNMSPRESEARCH FIND HEAD OF POSSIBLE TRANSLATIONS 
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20$: 


; SEARCH FOR THE SPECIFIED LOGICAL NAME WITHIN THE CURRENT LOGICAL _— TABLE. 


K 16 
ED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro V04-00 Pa 9. 
CH FOR LOGICAL NAME 5=SEP=1984 89:2 44: ‘33 EOYs SRCICAMSUS_MARG I - dd) 
BLBS R0,10$ ;BRANCH IF NO POSSIBLE TRANSLATION 
CLRL =—NT_L_ THREAD(R3) [CLEAR NAME BLOCK ADDRESS 
10$:  CLRQ <=(SP) :MAKE ANOTHER NAME TRANSLATION BLOCK 

MOVQ  NT_L_NAMLEN(R3),-(SP) :TABLE NAME AND ADDRESS 
PUSHL  (R3) : CONTROL LONGWOR ¥ 
MOVL  SP,R3 ADDRESS OF SYSTEM NAME TRANSLATION BLOCK 
MOVL a(R5)+,R1 TADDRESS OF SYSTEM HASH TABLE 
BSBW LNMSPRESEARCH :FIND HEAD OF POSSIBLE TRANSLATIONS 
BLBS  R0,20$ :BRANCH IF TRANSLATION MAY EXIST 
CLRL NT_L_THREAD(R3) [NO POSSIBLE TRANSLATION 

IF THE SPECIFIED LOGICAL NAME DOES NOT EXIST IN EITHER THE PROCESS-PRIVATE OR 

SHAREABLE NAME SPACES, REGARDLESS OF CONTAINING TABLE HEADER ADDRESS OR ACCESS 

MODE, THEN IT IS POINTLESS TO CONTINUE THE SEARCH, SO RETURN AN ER 

OTHERWISE POSITION TO THE FIRST TARGET LOGICAL NAME TABLE IN WHICH TO SEARCH 

FOR THE SPECIFIED LOGICAL NAME. 
TSTL -NT_K_LENGTH#NT_L_THREAD(R3) :ANY POSSIBLE TRANSLATION? 
BEQL 908 ;BRANCH IF NO TRANSLATION POSSIBLE | 
SUBL §_ #RT_K_LENGTH=4 yALLOCATE RECURSIVE TABLE NAME CONTROL BLOCK | 
PUSHL NT_6 xtHODE CRE ZACMODE, CA SEF LAG 
MOVL  SP7RS ADDRESS OF B Lock 
MOVG  § 2*NT_K_LENGTH(R3) ,R2 ‘eT LOGICAL NAME TABLE DESCRIPTOR 
BSBW 3s LNMSSETUP ;SETUP TABLE PROCESSING | 
BLBC ~— RO, 70 [NO TABLE FOUND 


; ONLY ONE NAME SPACE WILL HAVE TO BE SEARCHED FOR THE LOGICAL NAME, AND THAT | 
: IS THE NAME SPACE THAT CORRESPONDS TO THE NAME SPACE rtd CURRENT CF ABLE RESIDES | 
40$:  MOVAB  RT_K_LENGTH(RS),R3 : SYSTEM TABLE CONTROL BLOCK 
BBS #3T,R1,50$ ‘BRANCH IF SYSTEM SPACE TABLE 
ADDL  #NT K_LENGTH,R3 TADVANCE TO PROCESS TABLE CONTROL BLOCK 
50$: TSTL NT_C_THREAD(R3) SANY NAMES TO BE LOOKED 
BEQL 608 ~ :NO = GO GET NEXT TABLE Fs PROCESS 
MOVL  R1,NT_L_TABID(R3) STABLE HEADER ADDRESS 
PUSHL NTL THREAD (R3) ;SAVE SEARCH CONTEXT 
BSBW  — LNASCON SRESUME SEARCH FOR NAME 
MOVL re P)+ NT _ MT GREAD (R3) sRESTORE ORIGINAL SEARCH CONTEXT 
BLBS RO 708 [BRANCH IF NAME FOUND 
HE SPECIFIED LOGICAL NAME WAS NOT FOUND WITHIN THE CURRENT LOGICAL NAME 
ABLE. POSITION TO THE NEXT TABLE IN THE SEARCH LIST OF LOGICAL NAME TABLES. 
F THERE IS A NEXT TABLE, SEARCH FOR THE LOGICAL NAME WITHIN IT; OTHERWISE, 
HE SEARCH FOR THE Spee TEED LOGICAL NAME IS TERMINATED WITH AN ERROR. 


16 


LNMS = LOGICAL NAME RELATED SUBROUTINE 16-SEP-1984 00:30:35 VAX/VMS Macro v06-00 Page 40 
V04 [NMS SEAREHLOG = SEAREM FOR COGL CAL NAME 'SaSEpalone Seizing YOYS. SRCIENMSUB_MARG1 alt t 9 
41D 1 
1 39 41D 1 $F 60S: BSB LNMSTABLE ;CONTINUE TABLE PROCESSING 
09 50 EB 0420 187 BLBS —-RO, 408 BRANCH TO PROCESS ANOTHER TABLE | 
SE 58 AE 9E 0493 1873 70$:  MOVAB <2*NT_K_LENGTH>*+RT_K_LENGTH(SP) , SP “REMOVE TABLE SEARCH CONTROL 
2 BE a0 487 1874 BOS: mova SP) +TRZ RESTORE REGISTERS | 
eS 
50 Q1BC g 64 7 TS cos: ROYZUL #SS$_NOLOGNAN.RO :NO TRANSLATION FOR NAME 
—E 28 CO 0488 1 ADDL2 #2*NT_K_LENGTH, SP “REMOVE NAME SEARCH CONTROL BLOCK 
EF 11 0636 187 ars 808 ‘JOIN MAIN EXIT 
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SUBROUTINES 16-SEP-1984 00:30:35 VAX/VMS Macro v06-00 Page 41 
WFOR LOGIEAL NAME ScSEP-]9BG OS:ac;08 exe Cac teGmsue Rage ose 19) 


.SBTTL LNMSSEARCH_ONE = SEARCH FOR LOGICAL NAME AND RETURN TRANSLATION 
LNMSSEARCH_ONE = SEARCH FOR LOGICAL NAME AND RETURN INDEX 0 TRANSLATION 
THIS ROUTINE IS CALLED TO SEARCH FOR A LOGICAL NAME MATCH IN A LIST oF 
LOGICAL NAME TABLES. IF IT FINDS ONE, AND IF THAT LOGICAL A 
TRANSLATION WITH INDEX 0, THEN A COPY OF THE LNMX TRANSLATION Block IS 
RETURNED IN THE SPECIFIED OUTPUT BUFFER. 


THIS ROUTINE DOES NOT PERFORM ANY ARGUEMENT VERIFICATION. HOWEVER, THIS 
ROUTINE DOES PERFORM ALL REQUIRED MUTEX LOCKING AND PROTECTION CHECKING. 


WANA AAANAW AN NIN NAA ANI NAAN 
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INPUTS: 

RO = LENGTH OF LOGICAL NAME STRING. 

Ri = ADDRESS OF LOGICAL NAME STRING. 

R2 = LENGTH OF TABLE NAME STRING. 

R35 = mop ay te OF TABLE NAME STRING. 

R4 = PCB ADDRESS 

RS = SEARCH ACCESS MODE 3 LOW BYTE, CASELESS FLAG IN BIT 8. 

= ADDRESS OF OUTPUT BUFFER 
(MUST BE LNMSC_NAMLENGTH + LNMXS$T_XLATION BYTES IN SIZE). 

OUTPUTS: 


RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 
RO = SSS -NOLOGNAM - - we “wr MATCH FOUND. 
FOUND BUT TRANSLATION WITH 
” TNBEX DOES NOT EXIST. 


RO = SS$_NOPRIV = LOGICAL NAME WAS FOUND BUT CALLER DOES NOT 
HAVE ACCESS TO THE SPECIFIED TABLE. 


RO LOW BIT SET INDICATES SUCCESS WITH: 
A COPY OF THE LNMX FOR TRANSLATION INDEX 0 IN THE OUTPUT BUFFER. 
REGISTERS R1 = R3 AND R5 ARE DESTROYED. 
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LNMSSEARCH ONE: SEARCH FOR LOGICAL NAME AND RETURN LNMX 
01 DD PUSHL “pss NORMAL ASSUME SUCCESS 
. SAVE CURRENT IPL ON ra 
5 BP RO SAVE LOGNAM STRING LENG 
at 0 esau LNMSLOCKR LOCK LOGICAL NAME MUTEX. FOR WAIT ENS 
8EDO RO RESTORE LOGNAM STRING LENGTH 
qppeees 44 - IF NE CA$_MEASURE :CHECK FOR MEASUREMENT ENABLED 
00000000 EF nt othe L“PMSSGL_LOGNAM :IF YES COUNT CURRENT TRANSLATION 
448 

FFS7 38 448 BSBW LIME SE ARCIA.OS spe nace FOR THE LOGICAL NAME 

58 50 =6C€ 44 BLBC RO,40$ EXIT ON ANY ERROR 


WDODODOOOOOOOO COD OOOOOO0O0O0O00000000000 0000 000000000000 000000 009 00 00 C9 0D CD CD CD OD CD 
WAAIA AA. A AAPIPIDININIPONINIDD 4 9 OS | “DOOD OOOOOOOO0O0O000000 000000000 000000 
DNASE WN SO OD NAUN EWN CF OD NAME WN SO OD NAME WN SO OD NOAU EW O OONOUS UMD 


a a a ak a et td = = = So 8 = 4 29 3 2) 28d 2 2 SS. 8 ss ss 3 1 9 ss a 1 a 


2h W-s BBC #31,R1,1$ ONLY CHECK ACCESS TO SHAREABLE TABLES 


B 1 
LNMSUB - LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 42. 
V04=000 [NMS SEARCH ONE - SEARCH FOR LOGICAL NAME mises 30:70:38 Heys 6 CILNMSUB.MAR; 1 9 15) 
51 DD 455 1939 PUSHL 1 SAVE LNMB ADDRESS 
51 OC Al D0 457 1940 MOVL §LNMBSL_TABLE(R1),R1 SRETRIEVE TABLE HEADER ADDRESS 
52. (01 p 438 1941 MOVL  $#ARMSMTREAD,R2 TREAD ACCESS 
FCDO 0 4 F 1948 BSBW = LNMSCHECK_PROT SPERFORM PROTECTION CHECK 
51 BEDO 0461 194 POPL SRESTOR® LNMB ADDRESS 
42 50 £9 464 1944 BLRC ~—_- RO, 408 TEXIT ON ANY E 
51 11 Al GE 0467 1946 1$: MOVAB LNMBST_NAME(R1),R1 ZADDRESS OF NAM 
50 81 9A 0468 194 MOVZBL (R1)+,RO SRETRIEVE $1 
51 50 «C0 O4ge 1948 ADDL2 RO,R1 :POSITION TO 
02 EO 0471 1950 5$: BBS #LNMXSV_XEND,- :1S THIS THE LA ? 
12 6 473 1951 LNMX$B_FLAGS(R1).10$ | :IF SO, NO IN EX 0 LNMX SO RETURN ERROR 
01 Al 95 047 1958 TSTB LNAXSB INDEX(R1) :1S THE INDEX 0 LNMX? 
15 13 0478 195 BEQL 0$ [IF SO, GO RETURN LNMX 
0B 14 O47A 1954 BGTR  10$ [IF POSITIVE INDEX THEN GO RETURN ERROR 
50 04 A1 9A 47 1955 MOVZBL LNMXST_XLATION(R1),RO _SELSE RETRIEVE SIZE OF TRANSLATION 
51 05 A140 9E 0480 1956 MOVAB LNAXSTOXLATION®1 (RE) CROJ, RI “POSITION TO NEXT LNMX 
; I NDEX 
11 0483 1957 BRB 4 GO SEE IF ITS INDEX IS 0 
04 AE O1BC BF 3C 0487 1959 10S:  MOVZWL #SS$_NOLOGNAM,4(SP) ZELSE, RETURN THE APPROPRIATE ERROR 
10 11 0480 1960 BRB 30$ : STATUS 
50 04 Al 9A O48F 196¢ 20$: § MOVZBL LNMXST_XLATION(R1),RO  ;RETRIEVE SIZE OF TRANSLATION STRING 
0 05 CO 0493 196 ADDL2 #LNMXST_XLATION+1,RO | :ADD SIZE OF LNMX OVERHEAD + COUNT FIELD 
54 DD 0496 1964 PUSHL RG [SAVE PCB ADDRESS 
66 61 50 28 0498 1965 MOVCS RO,(R1), (RO) [MOVE ENTIRE LNMX FOR INDEX 0 
54 BEDO o49¢ 1966 POPL RG SRESTORE PCB ADDRESS 
02D8 30 O49F 1968 30$:  BSBW LNMSUNLOCK SUNLOCK THE LOGICAL NAME MUTEX 
OA 1969 ENBINT ‘RESTORE IPL TO ITS VALUE ON ENTRY 
50 BEDO O4as 1970 POPL RO ; RESTORE STATUS 
04 AE 50 D0 04A9 19% 40$ MOVL RO, 4(SP) [CHANGE RETURN STATUS TO AN ERROR STATUS 
11 O04AD 197 BRB 30$ :GO RETURN 
O4AF 1974 ; PAGE 
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FIRST LNMX 
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RO = SS$_NOLOGTAB - NO LOGICAL NAME TABLE NAME MATCH FOUND. 
R1 = JUNR. 


RO LOW BIT SET INDICATES SUCCESS WITH: 


ea 

LINMS - LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro v04-00 P 43 
VO04= LNMSFIRSTTAB = SEARCH FOR FIRST TABLE NA ety 7 80:70:38 SYS.SRCJLNMSUB.MAR; 1 age (30) 

4AF .SBTTL LNMSFIRSTTAB = SEARCH FOR FIRST TABLE NAME 

AF :" LNMSFIRSTTAB = SEARCH FOR FIRST TABLE NAME | 

GAF THIS ROUTINE IS CALLED TO LOOKUP A LOGICAL NAME TABLE NAME. THE FIRST MATCH 

4AF ; FOUND I$ RETURNED. 

AF ; ACCESS TO Fie TABLE IS NOT CHECKED. 

AF INPUTS: 

AF R1 = SEARCH ACCESS MODE IN LOW BYTE, 

4AF : CASELESS FLAG IN BIT 8, 

AF : HIGH BROERS WORD 0. 

OGAF : Re = LENGTH OF TABLE NAME STRING. 

O4AF ; R3 = ADDRESS OF TABLE NAME STRING. 

O4AF IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 

O4AF ACCESS. 

O4AF ; 

O4Ar ; OUTPUTS: 

O4AF RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 
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O4ar R1 = ADDRESS OF LOGICAL NAME TABLE HEADER. 
4AF REGISTERS R2 AND R3 ARE MODIFIED. 
AF REGISTERS R4 AND R5 ARE PRESERVED. 
4AF 
O4AF LNMSF IRSTTAB: : ;SEARCH FOR LOGICAL NAME TABLE 
55 DD O4AF PUSHL. R [SAVE REGISTER 
SE 2¢ C2 0481 SUBL #RT_K_LENGTH-4,SP TALLOCATE RECURSIVE TABLE NAME CONTROL BLOCK 
51 DD 04B4 PUSHL 1 TACMODE, CASE FLAG 
55 3E 20 BS MOVL = SP,RS SADDRESS OF BLOCK 
0134 30 0489 BSbW Ss LNMSSETU [SETUP TABLE PROCESSING 
SE 30 CO 04BC ADDL2 @#RT_K eTENGTH, SP [REMOVE TABLE SEARCH CONTROL BLOCK 
55 BEDO O4BF POPL R> [RESTORE R 
05 50 «£8 «(04C BLBS TRETURN IF SUE CESSF UL 
50 2294 BF : 4C MOV ZWL #S§$ NOLOGTAB,RO ELSE SETUP TO RETURN APPROPRIATE ERROR 
4CA 10$:  RSB SRETURN, STATUS IN RO 
04(B 
04(B ; . PAGE 
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LNMS GICAL NAME RELATED SUBROUTIN EP- :30: AX/VMS Macro V04-00 | 
PRESEARCH - FIND FIRST CAND] 


- LO 
Vv04-000 LNMS 


INES 16-SEP-1984 00:30 Page 44 
ANDIDATE NAM toe 3 40303 SYS.SRCILNMSUB.MAR; 1 - (21) 


‘ LSBTTL LNMSPRESEARCH = FIND FIRST CANDIDATE NAME | 
LNMSPRESEARCH = FIND FIRST CANDIDATE LOGICAL NAME 
THIS ROUTINE IS CALLED TO SEARCH A LOGICAL NAME HASH TABLE FOR THE FIRST 
CANDIDATE LOGICAL NAME MATCH. IF A LOGICAL NAME TABLE I$ SPECIFIED. THE 
SEARCH CONTINUES TO A SPECIFIC NAME. 
INPUTS: 


Ri = HASH TABLE ADDRESS (IF TABLE HEADER ADDRESS IS MISSING) 


R3 = ADDRESS OF NAME TRANSLATION (NT) BLOCK 
NAME TABLE BLOCK REQUIREMENTS: 
_W MUST BE INITIALIZE 
TW MAY BE INITIALIZED OR 0 
NT"L"NAMLEN MUST BE INITIALIZED 
NT“L-NAMADR MUST BE INITIALIZED 
NT~L~TABID : MAY BE INITIALIZED OR 0 
NTL" THREAD : UNINITIALIZED 


cekag THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 
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Roce OUTPUTS: 
Rete RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 
04CB RO = SS$_NOLOGNAM - NO LOGICAL NAME MATCH FOUND. 
beee Ri = ADDRESS OF LOGICAL NAME BLOCK ON WHICH SEARCH FAILED. 
ate NAME TABLE BLOCK REQUIREMENTS: 
04CB NT_W_RT : UNCHANGED 
048 NT~W~HASH : VALID 
04CB NT_L_NAMLEN : UNCHANGED 
04CB NT“L~NAMADR : UNCHANGED 
04CB 206 NT_i_TABID : UNCHANGED 
04CB 206 NT_L_THREAD : ADDRESS OF LOGICAL NAME BLOCK 
04CB 2064 PRECEEDING THE BLOCK ON WHICH THE 
04CB 2065 SEARCH FAILED. 
04CB 2066 
Rete of RO LOW BIT SET INDICATES SUCCESS WITH: 
nets 098 R1 = ADDRESS OF LOGICAL NAME BLOCK THAT CONTAINS MATCH, 
gcc 1 NAME TABLE BLOCK REQUIREMENTS: 
acc O78 NT_W_RT : UNCHANGED 
4CB 207% NT"W"HASH : VALID 
4CB 2075 NT~L~NAMLEN UNCHANGED 
4CB 8 NT_L_NAMADR UNCHANGED 
4CB 7 NT_L_TABID : UNCHANGED 
cB 78 NT_L_THREAD : ADDRESS OF LOGICAL NAME BLOCK 
4CB 2079 PRECEEDING THE BLOCK ON WHICH THE 
CB 2080 SEARCH SUCCEEDED. | 
| 
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LNMS = LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 45 
ia: 600 [NNSERE SEARCH - FIND FIRST CANDIDATE NAM set 99:22:83 EOYs. SRCITNMSUB_MARS 1 9 (34) 
4CB 13 
4CB é ; R3,R4,R5 PRESERVED. 
4CB > 
4cB 4 .ENABLE LSB 
4(B : LNMSPRESEARCH:: :SEARCH FOR LOGICAL NAME 
50 OC AB b9 4CB MOVL  NT_L_TABID(R3),RO TADDRESS OF TABLE HEADER 
04 13 O4CF 2088 BEQL 108 ‘BRANCH IF NOT SPECIFIED 
51 OLA v0 4D1 2089 MOVL —_LNMTHSL_HASH(RO) ,R1 [HASH TABLE ADDRESS 
50 «(02 A C 04D5 2090 10$:  MOVZWL NT_W_HASH(R3),RO tHASH FUNCTION AVAILABLE? 
10 12 0409 2091 BNEQ 208 ‘BRANCH IF YES 
51 pp 04DB 09¢ PUSHL 1 SSAVE HASH TABLE ADDRESS 
5 4 A3 7D 0400 209 MOV NT_L_NAMLEN(R3),RO :NAME DESCRIPTOR 
008A 30 04E1 2094 BSBW sLN [COMPUTE HASH FUNCTION 
02 a3 50 BO 04E4 2095 MOVW  RO,NT_W_HASH(R3) ‘SAVE HASH FUNCTION 
1 BEDO 04E8 2096 POPL = R1 SRESTORE HASH TABLE ADDRESS 
50 61 CA O4EB 2097 20$:  BICL2 LNMHSHSL_MASK(R1),RO | :MASK OFF UNWANTED BITS OF HASH FUNCTION 
51 OC A140 DE O4EE 2098 MOVAL LNMHSH$K~BUCKET(R1)CROJ,-;COMPUTE ADDRESS OF HASH BUCKET AND 
04F3 2099 R :STORE ITS ADDRESS AS ADDRESS OF 
04F3 2100 ASSUME LNMBSL_FLINK,£0,0 [PREVIOUS LNMB IN NT_L_THREAD 
OD 11 O4F3 2101 BRB 0$ [RUN DOWN HASH CHAIN-AND RETURN 
O4F5 102 
04F5 2103: PAGE 
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S 19-sé O-138t 00:30:38 4 
NEXT CANDIDATE NAM 984 244: SYS.SRCILNMSUB.MAR; 1 (22) 
+ ~SBTTL LNMSCONTSEARCH = FIND NEXT CANDIDATE NAME 

; LNMSCONTSEARCH - FIND NEXT CANDIDATE LOGICAL NAME 


; ; THIS ROUTINE IS CALLED TO SEARCH A LOGICAL NAME HASH BUCKET FOR THE NEXT 
CANDIDATE LOGICAL NAME MATCH. 


INPUTS: 
R3 = ADDRESS NAME TABLE BLOCK. 
NAME TABLE BLOCK REQUIREMENTS: 


wr 


PELL SLE LO 
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es 
i Do Dea 
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AD 
ADDRESS OF PREVIOUS LNMB 
SEARCH CONTINUES WITH THE FOLLOWING ENTRY. 


A Be ace THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 


; ; OUTPUTS: 
RO LOW BIT CLEAR INDICATES SEARCH FAILURE. 


ag = SS$_NOLOGNAM - NO LOGICAL NAME MATCH FOUND. 
= ADDRESS OF LOGICAL NAME BLOCK ON UAICH SEARCH FAILED. 


NT_L_THREAD CONTAINS ADDRESS OF PREVIOUS LNMB BLOCK 
RO LOW BIT SET INDICATES SUCCESS WITH: 
R1 = ADDRESS OF LOGICAL NAME BLOCK THAT CONTAINS MATCH. 
NT_L_THREAD CONTAINS ADDRESS OF PREVIOUS LNMB BLOCK 
R3,R4,R5 ARE PRESERVED. 
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LNMSCONTSEARCH: : SEARCH FOR LOGICAL NAME 
ASSUME LNMBSL_FLINK §0.0 
51 10 a3 00 MOVL NT_L_TAREAD(R3) .R1 ADDRESS OF PREVIOUS LOGICAL NAME BLOCK 
09 63 OA £0 1 B s aN” Q_MODIFY,(R$),35$ :CAN HASH BUCKET CH 
51 61 DO 064 ¢ MOVL ENMBSC_FLINK(R1) AI IF NOT THEN RETRIEV RDDRESS NEXT LNMB 
54 O11 2 ; BRB 5$ SAND SKIP FIRST CMPC 
10 a3. 51 =p0 05 5 03: MOVL R1,NT_L_THREAD(R3) SAVE ADDRESS OF PREVIOUS BLOCK 
51 61 oY 5 § $: MOVL ie FLINK(R1),R1 GET ADDRESS OF neXt LOGICAL NAME BLOCK 
Ht} 1 2 BEQL O$ : CH IF NO NEXT BLOCK 
11 A1 O4A 91 8 CMPB L_NAMLEN(R3), - sLENGTH'S MATCH? 
2} NiAbst NAME (R1) 
FO OA 1 0 BGTRU Os KEEP LOOKING DOWN CHAIN 
3c)0CC«aF O51 1 BLSSU $ NO MATCH 


6 1 
LNS = LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 47 
be-080 LNMSCONTSEARCH = FIND NEXT CANDIDATE NAM ety 7 90:20:33 SYS.SRCILNMSUB.MAR; 1 9° (32) 
53 DD 0514 163 PUSHL 3 :SAVE SEARCH PARAMETERS 
i bp 316 16 PUSHL Ri 
12 Al 08 83 04 A3 1 164 CMPC3 NT_L_NAMLEN(R3) ;LOGICAL NAME STRINGS MATCH? 
SiF 2165 ant : NAMADR(R3S, = 
at 186 Ng T_NAME+1(R15 
22 04 BE 8 1 1F 216 BBC V_CASE,a4(SP),50$ ;BRANCH IF CASED SEARCH 
3 0524 21 8 40$: EQL es ‘BRANCH ON 
50 81 9A 0526 21 MOVZBL (R1)+ *GET CASELESS CHARACTER 
7E 0000000 "GF GO 90 0529 2170 MOVB orexe See case _DATCROJ,-(SP) 
5 : 9A 0531 2171 MOVZBL (R3)+,RO get CASELESS CHARACTER 
00000000" GF4 91 0534 1% CMPB ss (SP) +, G*EXESUPCASE_DATLRO 
9 if 53c (217 BNEQ 50% ;BRANCH IF DIFFERENT IN MORE THAN CASE 
p g : 174 DECL. R :PASS OVER THESE CHARACTERS 
63 61 § 9 0540 2175 CMPC3 R2, (R1), (R3) [RESUME COMPARISON 
DE 11 0544 126 BRB 40$ ;CONTINUE CASELESS COMPARISON 
OA BA 346 177 50$:  POPR #*M<R1,R3> RETRIEVE SEARCH PARAMETERS 
OC 13 0548 2178 BEQLU 358 TIF EQL FOUND IT 
B6 1A 054A 2179 BGTRU 30$ TIF GTR KEEP SEARCHING 
B2 63 08 £0 0546 180 BBS WNT_V_CASE, (R3) ,30$ ‘BRANCH TO CONTINUE IF AGAseo SEARCH 
50 OiBc BF 3¢ 330 181 70$: MOVZWL #358 _ROLOGNAM,RO [SET NO LOGICAL NAME MATCH 
05 0559 : RSB SEXIT 
50 OC A3 00 0556 2184 55$:  MOVL NT_L_TABID(R3),RO ;RETRIEVE TARGET TABLE HEADER ADDRESS 
E 13 055A 2185 BEQL [DONE IF IGNORING TABLE 
Oc Al 650) «6pt «(055c «(2186 CMPL = RO, LNMB$L_TABLE(R1) + COMPARE TABLE 
AO 1A 0560 187 BGTRU 308 [CONT IF YET REACHED TARGET TABLE 
EC 1F 0562 188 BLSSU 708, [DONE IF PASSED TARGET TABLE 
0B Al 63 91 0564 2189 CMPB B_ACMODE(R3) [COMPARE ACCESS MODES 
0568 190 thes ACMODE(R{) 
98 «#«1F 0568 191 BLSSU :CONT IF NOT YET REACHED ACCESS MODE 
50 01 DO 056A 198 60$: MOVL  #SS$_NORMAL,RO ;MATCH FOUND 
05 056D 2194 RSB TEXIT 
056 195 
56E 2196 DISABLE LSB 
056E 2197 ; * PAGE 
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~SBTTL LNMSHASH 
; LNMSHASH = THE HASH FUNCTION 
; INPUTS: 


UBRQUTINES 1973 e 1388 90:70:38 AX/VMS Macro FP her 94 Page 


4 
SYS.SRCIJLNM MAR ; 1 (23) 


- HASHING ALGORITHM 


ICA E 
ASH = HAS 
Shp 
E $506 
E 4: RO = LENGTH OF NAME. 
: 5 Ril = ADDRESS OF NAME. 
BOE 5 OUTPUTS: 
56 3 3 RO = RETURN HASH FUNCTION. 
56E ; R1, R2 SCRATCHED. 
36E 10 s R3.R4,R5 PRESERVED. 
56 i 
56E \§ LNMSHASH: : 
53D 36 14 PUSHL 3 :SAVE REGISTERS 
50 p 5 15 PUSHL RO 
53 50 «=OFE &F b 57 18 ASHL #-2,R0,R3 ;DIVIDE By FOUR 
12 13 057 1 BEQL “NOT EVEN THAT LONG 
20202920 er cB 329 18 10$:  BICL3 #°A(AAAA/\“A/2088/ ,~ SFETCH ESELESS CHARACTERS 
26 8} cc ae 0 XORL  R2,RO- :XOR IN THE CHARACTERS 
50 50 09 3 0584 1 OTL #9.R0,RO {SCRAMBLE A Bit 
cE 53 OF 0588 é SOBGTR 10 ‘LOOP UNTIL DONE 
53 BE FFFFFFFC &F cB 388 ; 20S: BICLS #-4, (SP)+,R3 > SAVE NEMATNDER OF DIVIDE BY FOUR 
52. BI 20 8B 0395 5 30$:  BICB3 #*A/A/\*A/a/,(R1)+,R2 FETCH A CASELESS CHARACTER 
50 8c 0599 ‘ XORB RO :X0 OR IN A CHARACTER 
50 50 op 9C 059C¢ ROTL  #1%,R0,RO : SCRAMBLE 
F2 F4 5A 8 40$:  SOBGEQ R3,$0$ i LOOP UNTIL DONE 
50 71279461 BF C4 O5A 9 MULL = #* X71 79461 RO ULT BY A FUNNY NUMBER 
50 50 13 9C OS5AA 0 ROTL #32-13,R0,RO CET SIGNIFICANT BITS 
53 8EDO O5AE 1 POPL R3 «OE STORE REGISTERS 
05 0581 é RSB 
05B2 55 3 . PAGE 
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LNMS = LOGICAL NAME RELATED SUBROUTINES 16-SEP-1984 00:30: AX/VMS Ma cro rant, Page 49 
v04— [NRSLOOKUP'= TOCKLP FABSE Rane gree lebe Oeizetos PeNCVES Bece 9° (2h) 
8 5 .SBTTL LNMSLOOKUP - LOOKUP TABLE NAME 
28 § ; LNMSLOOKUP = LOOKUP TABLE NAME 
28 3 ; THIS ROUTINE IS CALLED TO LOOKUP A LOGICAL NAME TABLE NAME. 
28 i : INPUTS: 
58 43 ; RO = HASH CODE VALUE OF LOGICAL NAME TABLE STRING (OR 0 IF NOT KNOWN) 
58 44 ; Re = LENGTH OF LOGICAL NAME TABLE ST RING. 
58 45 ; R3 = KODRESS OF POGICAL NAME TABLE STRING. 
HH 6 ; R5 = ADDRESS OF RECURSION TABLE SEARCH CONTROL BLOCK 
038 48 ; IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 
58 49 ; ACCESS. 
058 50 ; 
038 51 ; OUTPUTS: 
58 25 3 
928 7 3 R1 POINTS TO THE NAME BLOCK. 
038 23 z R2 AND R3 ARE MODIFIED. 
ba 3 
058 58 LNMSLOOKUP: 
55 od 058 59 PUSHL R5 SAVE REGISTER 
7E 7C 0584 60 CLRQ -(SP) NO NAME BLOCK ADDRESS 
0586 61 i SPACE FOR DIRECTORY TABLE ADDRESS 
7E 52 7D 0586 6¢ MOva R2,-(SP) ADDRESS AND LENGTH OF 
7E 50 B80 9989 6 MOVW RO,-(SP) :HASH CODE VALUE OF TABLE NAME STRING 
43 63 BO 05BC 64 MOVW RT_W_R5(R5) (SP) [CASE FLAG AND ACCESS MODE 
5 E DO O5BF 65 MOVL 7R SADDRESS OF BLOCK 
55  Q0000000°EF ODE 03ce 66 MOVAL L“LNMSAL_DIRTBL,RS TADDR OF SYSTEM DIRECTORY TABLE ADDRESS 
15€ fF €0 OSC 6 BBS 5 ,10$ [BRANCH IF SMALL PROC 
50 04 85 og O3Cp 68 MOVL 4(R5)-RO : ADDRESS OF PROCESS DIRECTORY TABLE 
0B Oi 5D1 69 BEQL *Os skip IF NO TABLE D 
0c AO 60 = 6(05D3 70 MOVL LNABSL xuABLE (RO) .~ DDRESS OF TABLE PE ADER OF PROCESS 
OC A3 0306 71 Ubalh BID(R3) DIRECTORY TABLE 
FEFO 30 05D oe BSBW UNA PRESEARCH : SEARCH PROCESS DIRECTOR 
0B 50 34 5DB 7 BLBS RO,20$ :BRANCH IF NAME FOUND IN TPROCESS SPACE 
50 95 OD SDE 74 10$: MOVL a(R5)+,R0 sADDRESS OF SYSTEM DIRECTORY TABLE 
0c Ag DO 0561 75 MOVL LNABSL “TABLE (RO),- ADDRESS OF TABLE HEADER OF svetEn 
OC A 5E4 26 tt TABID(R3) DIRECTORY TABLE 
FEE2 30 2E6 7 BSBW LR PRESEARCH : SEARCH SYSTEM DIRECTORY AND RETURN 
an 2 8 20S: ADDL #NT_K_LENGTH, SP FLUSH TRANSLATION BLOCK 
55 BED EC 7 OPL te SRESTORE REGISTER 
0 SEF 0 LRSB RSB 
3F0 1 
SF 2; . PAGE 
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+ -SBTTL LNMSSETUP - SETUP TO PROCESS TABLE NAME 
; LNMSSETUP - SETUP TO PROCESS LOGICAL NAME TABLE NAME 


: : THIS ROUTINE IS CALLED TO SETUP TO PROCESS A LOGICAL NAME TABLE NAME. 
; TABLE SEARCHING IS INITIALIZED. 


; : INPUTS: 


LNMS erep 
vou=000 P 


S 
RO 


me 

=- 
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RING. 
TRING. 
TRANSLATION BLOCK 

ED 
MUTEX IS LOCKED FOR AT LEAST READ 


; ; OUTPUTS: 


RO Contates ERROR STATUS FROM SEARCHING. 
=_SS$_N cy =~ NO LOGICAL NAME MATCH FOUND. 
: RB, R5~ ARE ODIFIED. 


R415 PRESERVED. 


RO LOW BIT SET INDICATES SUCCESS WITH 
1 = ADDRESS OF LOGICAL NAME TABLE HEADER. 

= LENGTH OF ACTUAL LOGICAL NAME TABLE STRING 
R5 = ADDRESS OF ACTUAL LOGICAL NAME TABLE STRING 
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R5 = ADDRESS OF CONTROL BLOCK. 
LNMSSETUP:: 
08 BA BICB2 #RT_M_TERM,- CLEAR LAST TRANSLATION BIT 
01 A RT_B_FLAGS(RS) 
02 AS) 9% CLRB RT-B-DEPTH(RS) s INITIALIZE RECURSION DEPTH TO 0 
FF 8F 90 OSF MOVB Tt MAXTRIES .~ INITIALIZE MAXIMUM NUMBER OF TRIES 
03 AS SF RT_6_TRIES(RS) 
50 pd4& OSF CLRL RO HASH CODE VALUE OF INITIAL TABLE NAME 
SF SSTRING IS OWN 
Fre) 30 O5F BSBW LNMSLOOKUP ; LOOKUP THE INITIAL NAME 
€8 50 =€9 0 BLBC RO,LRSB NO SUCH NAM 
08 AS 6551=«11—Ss«C1—s« 060 ADDL3 #LNMBS$T_NAME,R1,- :SAVE INITIAL LNMB IN RECURS 10N TABLE 
6 RT ‘ STACK(R5) ; AS THE STARTING POINT OF TRANSLATIONS 
00g6 3 6 BSBW LNASTBL_CACHE :CHECK THE TABLE TRANSLATION CACHE 
04 AS 0 OD 6 MOVL RO,RT_L~CACHEPTR(RS) ; SAVE CACHE POINTER 
in 61 BEQL LNs TKBCE _SRCH sUSE LONG WAY IF NO CACHE ENTRY 
0B AO 01 BE 061 MNEGB LLC Se CACHE INDX (RO) START uitl INITIAL ENT 
6! : ERB CNAs ; AND DROP INTO LNMST ABLE 
61 : . PAGE 
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.SBTTL LNMSTABLE ~ PROCESS LOGICAL NAME TABLE 
LNMSTABLE = PROCESS LOGICAL NAME TABLE NAME 
THIS ROUTINE I$ CALLED TO PROCESS A LOGICAL NAME TABLE NAME. 
THE TABLE NAME TRANSLATION CACHE IS USED IF POSSIBLE, ELSE 


THE NAME IS RECURSIVELY TRANSLATED. A CALLBACK IS PERFORMED 
FOR EVERY TABLE THAT IS FOUND. 
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A BASIC ASSUMPTION THAT THIS ROUTINE MAKES IS THAT IT IS CALLED FIRST 
THROUGH LNMSSETUP TO INITIALIZE THE RECURSION TABLE BEFORE BEING CALLED 
DIRECTLY SUBSEQUENT TIMES. 


INPUTS: 


R5 = ADDRESS OF TABLE NAME TRANSLATION BLOCK 
ALL FIELDS OF THE BLOCK MUST BE INITIALIZED. 


Dr at tre: THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 


OUTPUTS: 


RO CONTAINS ERROR STATUS FROM SEARCHING. 
RO =_SS$_NOLOGNAM = NO LOGICAL NAME MATCH FOUND. 
R2,R3,R5 ARE MODIFIED. 

R4 IS PRESERVED. 


RO LOW BIT SET INDICATES SUCCESS WITH: 
R1 = ADDRESS OF LOGICAL NAM E HEAD 
R¢ = LENGTH OF ACTUAL LOGICAL NAME TABLE STRING 
= 
5 = 
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R3 = ADDRESS OF ACTUAL LOGICAL NAME TABLE STRING 
R5 = ADDRESS OF CONTROL BLOCK. 
61 
61 71 LNMSTABLE:: 
5204 AS 0061 7 MOVL RTL CACHEPTR(RS).R2 GET CACHE POINTER 
4D 13 061 7 BEQL § LNASTABLE SRCH [USE RECURSIVE METHOD IF NO CACHE 
0B A2 96 061 7 INCB LNMCS$B_CACHEINDX(R2) _ :GO TO NE RY 
53 A2 9A 061 7 MOVZBL LNMCS$B~CACHEINDX(R2),R3 :EXTRACT INDEX NUMBER 
1A 3 91 06 7 CMPB =«R3,, #@LNACSK_NUM_ENTRIES OFF THE END? 
1E 06 7 BGEQU 40 :NOPE, SO USE THIS ENTRY 
51 18 A243 D 6 7 MOVL LNACSL_ENTRY(R2)CR3].R1 [GET ENTRY 
10 1 £9 BEQL 0$ :1$ THERE ONE? 
50 51 O01 C1 06 1 ADDL3 #1, R1,RO ;WAS THIS THE END FLAG? 
4 13 06 ‘ BEQL :THEN WE GOT ONE 
50 01 3 6 MOVZWL #SS$_NORMAL,RO :SUCCESS! 
6 , RSB 
50 018C 8F 3¢ 6 § 108: MOV ZUL #SS$_NOLOGNAM,RO ;RETURN TABLES ALL DONE 
0 : NO ENTRY - TWO POSSIBLE CASES: 
91: 1. WE JUST RAN OFF THE END OF THE VALID ONES AND 
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V04- INAS SABLE - PRocess LOGICAL NAME TABLE g-SEF 1382 88: 22: 33 ae SRCILNMSUB.MAR; 1 ” (38) vol 
63F ; ; NEED TO GO BACK TO THE BEGINNING AND REBUILD IT ALL. 
F ; IN THIS CASE THE RECURSION TABLE IS STILL IN THE INITIALIZED STATE 
F 34 AND THE RECURSION DEPTH IS ZERO. 
F 36 : 2. WE ARE BUILDING THEM AS WE GO. 
F ; IN THIS CASE THE RECURSION TABLE IS CURRENT AND THE CACHE INDEX 
6 f 38 ; 1S CORRECT. 
Cae S200 | 
02 aS) «(95 «(06 3F 631 20$ TSTB = RT_B_DEPTH(RS) ZRECURSION DEPTH 0? 
0 le 642 4 : BNEQ os ~ ‘NOP 
510° A ¢ 44 iby ADDL3 LNACSL TB TBLADDR(R2), - 3GET POINTER TO TABLE NAME 
08 AS 51. «1 rot 405 CMPL RT RT RT_L- “STNEKERS) sINITIAL STATE? 
03 12 0640 24 s BNEQ :NO, SO PRO 
0B Ag 94 064F 24 CLRB  —s LNMC$B_CACHEINDX(R2) :G0 BACK T T 
1 10 0652 2408 308 BSBB  =LNMSTABLE SRC :FIND NEXT (OR FIRST) 
52 04 05 D0 0654 2409 OVL L_CACHEPTR(RS),R2 | :GET CACHE 1 TE 
0B Ag 9A 0698 410 MOVZBL LNACSB_CACHEINDX(R2) ,R3 EXTRACT 
18 A263. 51 D0 065C 2411 OVL ,LNMC$L_ENTRY(R2)(R3J :STORE TABLE NEADER ADDR 
1€ A243 4 0661 41g CLRL — LNMCSL_ENTRY+4(R2)CR3) ;CLEAR NEXT 
05 0665 413 RSB S RETURN 
04 AS D4 0666 2415 40S CLRL L_CACHEPTR(RS) :GIVE UP ON THE CACHE 
bees 21§ 3 BRB RNRETABLE _SRCH AND USE THE LONG METHOD 
0669 2418 : . PAGE 
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-SBTTL LNMSTABLE_SRCH = PROCESS LOGICAL NAME TABLE 
LNMSTABLE_SRCH = PROCESS LOGICAL NAME TABLE NAME 
THIS ROUTINE IS Tate td TO PROCESS A a wt NAME TABLE NAME. 


THE NAME IS RECURSIVELY TRANSLATED. A CALLBACK IS PERFORMED 

FOR EVERY TABLE THAT IS FOUND. 

A BASIC ASSUMPTION THAT THIS ROUTINE MAKES IS THAT IT IS CALLED FIRST 
THROUGH LNMSSETUP TO INITIALIZE THE RECURSION TABLE BEFORE BEING CALLED 
DIRECTLY SUBSEQUENT TIMES. 


INPUTS: 


RS = ADDRESS OF TABLE NAME TRANSLATION BLOCK 
ALL FIELDS OF THE BLOCK MUST BE INITIALIZED. 


st eee THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 


OUTPUTS: 


RO CONTAINS cor STATUS FROM SEARCHING. 
RO = S LOGNAM = NO LOGICAL NAME MATCH FOUND. 
R2,R3,R5_ ARE MODIFIED. 
R4 IS PRESERVED. 


RO LOW BIT SET INDICATES SUCCESS WITH: 


R1 = ADDRESS OF LOGICAL NAME TABLE HEADER. 
R2 = LENGTH OF ACTUAL toi CAL NAME TABLE STRING 
R3 = ADDRESS OF ACTUAL LOGICAL NAME TABLE STRING 
R5 = ADDRESS OF CONTROL BLOCK. 
STABLE_SRCH: 
: BICB2 #RT_M_TERM.RT B FLAGS(R5) ; CLEAR TERMINAL SEEN BIT 
CVTBL R1_B_BEPTH(RS),RO RECURSION DEPTH 
BLSS 605 ~ ‘BRANCH IF NOTHING LEFT TO SCA 
MOVL  RT_L_STACK(RS5)CROJ,R1 ADDRESS OF PREVIOUS TRANSLATION STRING 
$ DECB = RT_B_TRIES(RS) ;DECREMENT NUMBER OF TRIES LEFT 
BEQL 708 [DONE IF TRIES REACHES ZERO 
MOVZBL (R1)+,RO ZLENGTH OF PREVIOUS TRANSLATION STRING 
ADDL2  RO,R1 [POSITION PAST PREVIOUS TRANSLATION 


BBS ay XEND sheet TRANSLATION? 


$8_FLAGS(R1), +508 YES = GO DECREMENT DEPTH AND CONTINUE 
CVTBL tthe INDEX(R1)<R 3GET TRANSLATION INDEX 
BLSS BRANCH IF SPECIAL VALUE 
BBS #RT_V_TERM, (RS) ,80$ TERROR IF EXPECTING TABLE HEADER 
CMPB #LNMSC MAXDEPTH,- ;RECURSED TOO DEEPLY? 
B_DEPTH(RS) TERROR OF OVERLY DEEP 


BLEQ a 


N 
LNMS = LOGICAL NAME RELA D SUBROUTINES 16-SEP-1984 00:30: AX/VMS Macro V04-00 Pa 4 LOA 
V04= [NAS TABLE _SRCH = ESS LOGICAL NAME TA g-86F =}382 88: 20:33 EOYs. SRCJLNMSUB.MAR; 1 - 34) ve 
02 AS 98 477 CVTBL RT_B_DEPTH(RS) Ro ;RECURSION DEPTH 
A 428 OVAB LNAXST XLATION(R1) R3 S TRANSLATION COUNTED STRING ADDRESS 
08 A540. p . mr MOVL  R3,RT_C STACK(RS)CRO] SAVE RECURSION INFO BEFORE LOOKU 
02 A 480 INCB = RT_B_BEPTH(RS) Z INCREMENT RECURSION DEPTH FOR NeXT TIME 
52. 8 A ‘3 481 MOVZBL (R3)#,R2 ; TRANSLATION STRING LENGTH AND ADDRESS 
50° O2 AI 3C AA 4 ; MOVZWL LNMX$W_HASH(R1) RO SRETRIEVE TRANSLATIONS HASH CODE VALUE 
01 €1 Q6AE 2484 BBC #LNMXSV_TERMINAL,- :1S THIS TRANSLATION MARKED TERMINAL? 
04 61 63) 485 LARS FLAGS(RI), 30$ :NO K 
0g 88 06B2 24 6 B1SB2 YES = ALLOW ONE AND ONLY ONE MORE 
O1A ft 4 Rt ‘a meLAcStRS) ; ANSLATION 
FEF 30 é 4 § 30$ BSBW LNMSL OOKUP ;LOOKUP LOGICAL NAME TABLE NAME 
1750 E9 0689 2490 BLBC £60 DECR DEPTH AND CONTINUE IF NOT FOUND 
51 11 €0 06B8C 2491 ADDL2 MBS T NAME ,R1 [POINT TO COUNTED NAME STRIN 
B7 «11 6B 49¢ BRB *CONTINUE WITH FIRST TRANSLATION 
5104 £0 42 49% 40$ ADDL2 #LNMX$T_XLATION,R1 ;ADDRESS OF COUNTED TRANSLATION STRING 
82 BF 52 91 06C4 2495 CMP ns #LNMRSC_TABLE :T NAM 
AE 12 06C8 496 BNEQ 208 i IGNORE THIS TRANSLATION 
51 6 O6CA 49 INCL RI SPOSITION TO TABLE HEADER 
02 AS 97 06CC 2498 DECB B_DEPTH(RS) SDECREMENT RECURSION DEPTH 
50 01 DO O6CF 2499 MOVL Asse “NORMAL ,RO [NORMAL STATUS 
05 o63§ 300 RSB [RETURN WITH R1 = TABLE HEADER ADDRESS 
02a5 97 $eb 308 50$:  DECB  RT_B_DEPTH(RS) ;DECREMENT RECURSION DEPTH 
91 18 oe08 303 BGEQ 108 RESUME 
51 01 ce 608 2505 60$:  MNEGL 4#1,R1 :FLAG LAST TABLE 
50 018C &F ¢ 0608 306 MOV ZUL #S$$_NOLOGNAM, RO SHAVE SCANNED ALL TABLE 
50 0374 ar s¢ GE! 308 70S: MOV ZL #SS$_TOOMANYLNAM,RO : RECURSION TOO DEEP 
50 015C BF 3¢ dees 510 808: MOVZWL #SS$_IVLOGTAB,RO S INVALID TABLE NAME 
51 DS O6ED 2511 90$:  CLRL RI 
05 O6EF 318 RSB 
O6F0 51 
06FO 2514 ; PAGE 
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LNMSUB = LOGICAL NAME RELATED SUBROUTINES SEP=1984 00:30: AX/VMS Macro V04-00 Page 55 
v04=000 LNMSTBL_CACHE = SEARCH LOGICAL NAME TABL Be Set yy 90:70:38 YOYS. SRCIENMSUB_MARS 1 . 38) 
6F if : .SBTTL LNMSTBL_CACHE = SEARCH LOGICAL NAME TABLE TRANSLATION CACHE 
oF 18 : LNMSTBL_CACHE - SEARCH LOGICAL NAME TABLE TRANSLATION CACHE 
6F 3 0: THIS ROUTINE 1s CALLED 10 SEARCH THE LOGICAL NAME TABLE NAME 
06FO 2521 : TRANSLATION CACHE. IF A CACHE ENTRY ae xists FOR THIS LOGICAL NAME, 
06FO 25 : ; THEN THE ENT ts VALIDATED AND RETURNED. IF INVALID OR NO ENTRY, 
O6F 3 33 A NEW ENTRY is SELECTED, INITIALIZED AND RETURNED. 
O6r ; 5 INPUTS: | 
O6F0 3 et ; R1 = ADDRESS OF TABLE NAME LOGICAL NAME BLOCK 
O6F0 529 IT IS ASSUMED THAT THE LOGICAL NAME MUTEX IS LOCKED FOR AT LEAST READ 
06F0 3 0; : ACCESS. 
O6F0 3 ¢ i : OUTPUTS: 
06FO 2534 RO CONTAINS ADDRESS OF CACHE ENTRY TO USE OR 0 
Q6FO 2535 ; CACHE ENTRY MAY OR MAY NOT BE VALID 
06FO 25 $ ; 
a eT 
06FO 2539 LNMSTBL_CACHE: 
50 5E iF €0 6F0 340 BBS #31,SP,100$ ;NO CACHE IF NO P1 SPACE 
52. 00000000'9F 9E 06F4 248 MOVAB —@#CTLSGQ_LNMTBLCACHE,R2 ;GET QUEUE HEADER ADDR 
50 52 DO O6FB 254 MOVL  _R2,RO [POINT TO FIRST ENTRY 
50 60 DO Bere 544 108: MOVL LNMCSL_FLINK(RO) ,RO GET NEXT ENTRY 
50 32 Di 0701 2545 CMPL = R2,, RO [BACK TO QUEUE HEADER? 
8 13 0704 2546 BEQL 80S YES THEN | MAKE A NEW ONE 
0c ao «651~—CétY 0706 547 CMPL —-R1,LNMC$L_TBLADDR(RO) 1S furs T E ONE? 
F212 ZO, 48 BNEQ 106 By 
50 60 OF o7o¢ 550 REMQUE ;REMOVE ENTR 
10 AO DY O70F 2551 CMPL (nap she PROCDIRSEQ(RO) - :IS PROCESS DIRECTORY VALID? 
00000000 ' 9F Orie 336 @#CTLSGL_LNMDIRSEQ 
OA 12 ort 5 BNEQ ts ;NOPE, MUST RE-INIT ENTRY 
14 A0 D1 0719 2554 CMPL = LNMCS$L_SYSDIRSEQ(RO),- 31S SYSTEM DIRECTORY VALID? 
00000000 ' 9F 71C 2555 OFLNMSGL_SYSDIRSEQ 
17. 13 «0721 336 BEQL 508 yA CACHE HIT! 
Oc AO 31 pd 07 3 557 40$:  MOVL RI gh NACSL TBLADDR(RO) [SET TABLE NAME ADDR 
O'SF p00 07 358 MOVL cTLSG NMDIRSEQ [SET NEW PROCESS DIRECTORY SEQ NUM. 
19 AO 72D 33 thc csp PROCDIRSEO (RO) 
00000000'9F DO O72F 2560 MOVL YSDIRSEQ,- | ;SET NEW SYSTEM DIRECTORY SEQ NUM. 
14 AO 7 5 561 tnCSL “STSDIRS cro) 
18 a0 7C 07 36¢ CLRO LagNT RY (RO) SCLEAR FIRST ENTRIES 
62 60 OF 073A 2563 50S: — INSQUE thos ste ) SINSERT AT HEAD OF QUEUE 
oe 
50 0462 OF O07 ; 66 80$: REMQUE @LNACSL_BLINK(R2) ,RO ;TAKE OLDEST ENTRY 
DF 1C 07% 6 ve 40$ [IF THERE ARE ANY | 
50 4 244 f 100$: CURL RO :NO ENTRY | 
43 29 | 
747 2571 ; PAGE 
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LNMSUB = LOGICAL NAME RELATED SUBROUTINES Ig-SEB-1984 00:30:35 VAX/ViKS Macro v04-00 Page 56 
v04-000 LNMSPROBER = PROBE LOGICAL NAME DESCRIPT 5=SEP=1984 03:44: SYS. SRCJLNMSUB.MAR; 1 ( | 
47 73 .SBTTL LNMSPROBER = PROBE LOGICAL NAME DESCRIPTOR FOR READ ACCESS 
140 t3 > LNMSPROBER = PROBE LOGICAL NAME DESCRIPTOR FOR READ ACCESS | 
747 § : THIS ROUTINE IS CALLED TO PROBE A DESCRIPTOR FOR A LOGICAL NAME FOR READ 
O47 £8 : ACCESS. IF CHECK THE LENGTH OF THE DESCRIPTOR FOR VALIDITY AS WELL 
747 2579 ; AS CHECKING ACCESS TO THE DESCRIBED BUFFER. 
oer 280 : ACCESS TO THE DESCRIPTOR IS NOT CHECKED. 
Sieh gaye | ius | 
0747 584 : RO = ADDRESS OF LOGICAL NAME STRING DESCRIPTOR 
O47 386 : OUTPUTS: 
O47 388 ; RO LOW BIT CLEAR INDICATES FAILURE TO TRANSLATE. | 
0747 2590 : RO = SS$_ACCVIO - ACCESS VIOLATION. 
0747 2591 : RO = SS$“IVLOGNAM = INVALID LOGICAL NAME. 
Bree 238 : Ri OND R2 ARE MODIFIED. 
0747 294 : RO LOW BIT SET INDICATES SUCCESS. 
0747 2596: RO = SS$_NORMAL - DESCRIPTOR IS VALID 
0747 2597 : Ril = LENGTH OF BUFFER IN BYTES. 
0747 2598 : R2 = ADDRESS OF BUFFE 
0747 2599 :- 
0747 2600 NMSPROBER:: | 
51 60 7D 0747 2601 Ova (RO), R1 sFETCH DESCR ipt OR 
51 51 3C O74A 60¢ MOVIL R1,R1 7GET LENGTH OF LOGICAL NAME STRING | 
11 13 0740 260 BEQL o$ SIF EQL INVALID LOGICAL NAME | 
O74F 2604 ASSUME LMSC NAMLENGTH LE 512 
OOFF 8F 51 B1 O74F 2605 CMPW 1, #LRMSC_NAMLENGTH ;LEGAL NAME STRING LENGTH? 
0A 1A 0754 2606 BGTRU Og tIF LEQU Y 
0756 2607 IFNORD R1,(R2),20$ [CAN LOGICAL NAME STRING BE READ? 
50 (01 b0 o7ec 608 ROVL #SS$_NORMAL,RO TSUCCESS STATUS 
50 0154 8F 3¢ 0760 610 108: MOVZWL #SS$_IVLOGNAM,RO :SET INVALID LOGICAL NAME 
3 ec st ore? 61g 20$:  MOVZWL #SS$_ACCVIO,RO :SET ACCESS VIOLATION | 
05 0769 261 RSB | 
076A 2614 
076A 2615 ; PAGE 
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Lusi = LOGICAL NAME 19 30:38 parva Macro v04-00 Page 3 
00 LNMSLOCKR = LOCK LOGICAL NAME TABLE FOR 244; SYS.SRCILNMSUB.MAR; 1 ( 

76A 2617 -SBTTL LNMSLOCKR OGICAL NAME TABLE FOR READ ACCESS 
2A 8, ~SBTTL LNMSLOCKW OGICAL NAME TABLE FOR WRITE ACCESS 
76A 2620 ; * LNNSLOCKR = LOCK LOGICAL NAME R READ ACCESS 
fon ? 1 ; LNMSLOCKW = LOCK LOGICAL NAME TABLE FOR WRITE ACCESS 
con ° : THESE ROUTINES ARE CALLED TO SYNCHRONIZE ACCESS TO LOGICAL NAME TABLES. 

Orék 625 ; INPUTS: 
76A 26 § ; 

O7OA ° ; R4 = CURRENT PROCESS PCB ADDRESS. 

Brea 6 5 : OUTPUTS: 

076A 2630 ; 

O76A 2631 ; REGISTER A, 3 1S MODIFIED 

076A 26 : : REGISTERS R1, R2, AND R3 ARE PRESERVED ACROSS CALL. 

QO76A 2633 ;:- 

076A oe? 

076A 2635 -ENABL LSB 

076A 2636 LNMSLOCKR:: sLOCK LOGICAL NAME TABLE FOR READ ACCESS 

QOOOD0000'EF 9F 076A 2637 PUSHAB L*SCHSLOCKR :SET ADDRESS OF LOCK ROUTINE 
OE 11 0770 2638 R 10$ 5 
0772 2639 LNMS!.OCKW:: sLOCK LOGICAL NAME TABLE FOR WRITE ACCESS 
QO000000'EF  9F O77e 640 PUSHAB L“SCHSLOCKW >SET ADDRESS OF LOCK ROUTINE 
06 11 077 641 BRB 10$ 3 
O77A 2642 ; . PAGE 
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ICAL NAME 
NLOCK = U 
ad, G44 i .SBTTL LNMSUNLOCK - UNLOCK LOGICAL NAME TABLE 
LOA 46 : LNMSUNLOCK = UNLOCK NAME TABLE 
77A G48 : THIS ROUTINE IS CALLED TO UNLOCK LOGICAL NAME TABLES AND ALLOW ACCESS BY 
ad, 649 > OTHER PROCESSES. 
Ora 631 : INPUTS: 
vA 638 : R4 = CURRENT PROCESS PCB ADDRESS. 
ad, 639 : OUTPUTS: 
077A $39 : RO, R1, R2, AND R3 ARE MODIFIED. 
077A 2658 : 
vk ay 
077A 2661 LNMSUNLOCK: : UNLOCK NAME TABLE 
SBE Se tos, REAM EHO tex on HEN OREEE  UECE IOUS aa aie 
0S oreo ++ Ginaey “wate . : ‘PERFORM SYNCHRONY SAS TON OPERATION 
0788 2665 
0788 2666 
0788 2667 
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LNMSUB 16-SEP-1984 30: X/VM 
Symbol table iets 88 22:33 SYS.S 
ARMSM_READ = 1 LNMBST_NAME = 9 11 
ARMSM WRITE = LNMBS$V_NODELETE 2 4 
CAS_MEASURE = LNMBS$V_NO_ALIAS = ¢ 
CHPCTLSB_MODE = LNABS TABLE 2 0 
CHPCTE SC “LENGTH = $ 4 MBSW"SIZE 2 00008 
CHPCTLSL_ACCESS = tNNC SB CACHE INDX PY 00008 
CHPCTLSL_FL LAGS = 4 NMCSK_NUM_ENTRIE 2 OO01A 
CHPCTLSM_READ = 000 1 LNMCSL_BLIAK = 00004 | 
CHPCTL SM ~USEREADALL = 000 4 LNMCSL_ENTRY = 8 18 
CHPCTLSM WRITE = 000 2 LNMCSL_FLINK = 3 0 *° 
CTLSGL LAMDIRSEQ eeeeenee §=6X c cot “PROCDIRSEQ = 0000001 
CTL$GQ~ ~[NMTBL CACHE eererere =X MCS$L_SYSDIRSEQ = 38 14 
DELETE_ENTRY 0000000 R tNACSC TBLADDR s 0c 
DEL TELNMB OOO004F R 8 LWAHSHEK K_BUCKET = 0000000C 
DELETE_NAMES 000000C4 R LNMHSHS$L_ MASK = 00000000 
DELETE TABLE 00000101 R 0 LNMTHSB_ = 00000000 
DYNSC_ORB = 00000049 LNMTHSL_BYTE = 00000021 
EXESCAKPRO_INT teereeee =X 0 LNMTHSL_BYTESLM = 0000001D 
EXESCLEANUP_ORB tererere = X 0 LNMTHSL_C = 00000011 
EXESDEAP eeeeeese = = X 0 LNMTHSL_HAS = 00000001 
EXESDEAPAGED eereeeee XK 0 LNMTHSL_NAME = 00000009 
EXESUPCASE DAT eeeeeeee =X 0 LNMTHSL_OR = 00000005 
LNMSAL_DIRTBL eeeeeeee =X = 0 LNMTHSL_PARENT = 0000000D 
LNMSAL_HASHTBL terereee X 0 LNATHSL_OTABLE = 00000019 
NMSAL MUTEX eeeeeeeer§ X 0 LNMTHSL_SIBL = 00000015 
LNMSCHECK_ PROT 00000131 RG bs LNMTHSV— ~DIRECTORY = 00000001 
LNMSCONTSEARCH O00004F5 RG 0 LNMTHS$V_GR = 44 t4 
LNMSC_MAXDEPTH = Q0000000A LNMTHSV OT TEM = 0000000 
LNMSC-NAMLENGTH = QOOOOOFF LNMX$B_FLAGS = 00000000 
LNMSDELBLK 0001 RG 02 LNMX$B_ INDEX = 00000001 
LNMSDELET 000001A6 0 LNMX$C_BACKPTR = FFFFFF81 
CNMSDELETE _HASH OOOOOIFF RG 0 LNMX$C_TABLE = FFFFFF82 
ELETE_LNMB OOOOOIBF RG 0 LNMXST_XLATION = 00000004 
LNMSDELETE TAB 0000021A RG 0 LNMX$V~ TERMINAL = 00000001 
LNMSFIRSTTAB OOOOO4AF RG 0 LNMX$V~XEND = ee a 
LNMSGL_SYSDIRSEQ eeeeeere xX 0 LNMX$W_HASH = 0000000 
LNMSHASH 0000056E RG 0 LRSB OOOOOSEF R 02 
LNMSINIT_PROT 0000022B RG 0 NT_B_ACMODE = 00000000 
LNMS$ INSLOGTAB O000026F RG 0 NT_B_FLAGS = 00000001 
LNMSLOCKR 0000 $A RG 0 NT_K_LENGTH = 00000014 
LNMSLOCKW 0000772 RG 0 NT_L_NAMADR = 00000008 
LNMSLOOKUP O60 5B2 R NT_L_NAMLEN = 00000004 
LNMSPRE SEARCH 00004CB RG —L_TABID = 0000000C 
LNMSPROBER 9000 747 RG NT_L_ THREAD = H0010 
LNMSSEARCHLOG 3a5 RG “A~ CASE = 0 4 
LNMSSEARCH_ONE 9 438 RG NT"M~MODIFY 3 900 4 
LNMSSETUP ~ OSFO RG NT_V_CASE = 00000008 
LNMS TABLE 16 RG NT_V_MODIFY = S A 
LNMSTABLE_SRCH R NT_W_HASH = $ 
LARS TBL CACHE FO R NT~W"RS = | 
K 7A RG ORBSB. FLAGS = 
LNMSV CREATE_IF = 18 ORBS$B_TYPE z A 
LNMBSB_ACMODE = 98 ORBSC_LENGTH = 
CNMBSB™ FLAGS = 1 ORBSK-LENGTH = 
LNMBSL "BLINK = 4 ORBSL_ACL_COUNT = 
LNMBSL_FLINK zs 0 ORBS$L-ACL“DESC z C | 
LNMBSL- TABLE = 000 C ORBSL-ACL-MUTEX = 0004 | 
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LNMSUB 
Symbol table SYS.SRCILNMSUB.MAR; 1 


| 
| 
ed oe PROT = 8 | 
ORBSL_OWNER 2 
ORBSL_OWN_PROT = 
ORBSL_SYS_PROT = 1 
ORBSL_WOR- PROT s ¢ 
$Q-MODE_PROT = 0 
ORBSR_MAX_CLASS = 44 
ORBSR_MIN_CLASS = 30 
ORBS$S_MAX_CLAS = 00000014 
ORBSS_MIN_ CLASS = B38 14 
orene-ctie = $eeeeee 
PCBS ARG = Sooooose 
PCBSL_UIC = 444 C 
PCBS$Q-PRIV = 00000084 
PMSS$GC_LOGNAM ekereree x 0 
C eeeeeene x 0 
PRVSV_GRPNAM = 00000003 
PRVSV_SYSNAM = 0000000 
PSLSC_USER = 0000000 
_B_ACMODE = 444 44 4 
RT_B_DEPTH = 0000000 
RT_B_FLAGS = 00000001 
_B_TRIE = 00000003 
RT_C_MAXTRIES = QOOOOOFF 
RT_K_LENGTH = 00000030 
RT_L_CACHEPTR = 00000004 
_L_STAC = 00000008 
RT_M_CASE = 00000001 
RT_M_TERM = 4 44 
RT_V_CASE = 0000000 
RT _V_TERM = 00000009 
R = 00000000 
SCASCOCKR eeeeeeee 8 6X 0 
SCHSLOCKW reekkere x 0 
SCHSUNLOCK teereret x 02 
SS$_ACCVIO = 0000000C 
SS$_DUPLNAM = 44 4 8b 
SS$_IVLOGNAM = 0000 136 
S$S$_IVLOGTAB = sia C 
SS$_LNMCREATED = 00000681 
$_NOLOGNAM = B65 1BC 
SS$_NOLOGTAB = 00002294 
SS$_NOPRIV = i 4 
SS$_NORFAL = 1 
SS$_PARENT_DEL = 00 
Ss$_ ~SUPERSEDE = 00 
SS$_ TOOMANYL = 00 
ger e ere eee eee ee we + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 


iaass Bosooseo ¢ «8:3 OY < $2) NOPLE USR CON ABS CEL NOSHR “EXE “RD “WRT NOVEC BYTE 


non 


H 2 
LNMSUB = LOGICAL NAME RELATED SUBROUTINES 19-360- 138% 00:70:38 AX/VMS Macro Vv04-00 Page ¢ 
Psect synopsis -SEP-1984 05:44: SYS.SRCILNMSUB.MAR; 1 (31) 
YFSSLNM 00000788 ( 1928.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
goer ee se ereene eres -seee cee en $ 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 0: 0:8 9 : 9:0) -2? 
Command processing 119 B: :00. :00:04.44 
wa By betel : 38 : ate : 0:08:19 
m able sor :00:01. :00:05. 
ces 39 8: : 3°8 : 03-4 
Symbol table output 1 0:00:00.1 :00:00.7 
Psect synopsis output 0:00:00.0 Be 
Cross-reference output 0:00: 0:00: 9-2 
Assembler run totals 936 0:00:21.56 0:01:13.5 


The working set_Limit was 2100 pages. 

85200 bytes (167 pages) of virtual memory were used to buffer the intermediate cod 

There were 60 pages of symbol table space allocated to hold 1052 non-local and 102 
7 source Lines were read in Pass 1, produc tng 18 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


e. 
local symbols. 


+ 
; Macro Library statistics : 


Macro Library name Macros defined 


.$255$0UA28: CSYS.OBJJLIB.MLB; 1 10 
$255$DUA28: CSYSLIBISTARLET.MLB;2 S 
TOTALS (all Libraries) 19 


1115 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:LNMSUB/0BJ=O0BJ$:LNMSUB MSRC$:LNMSUB/UPDATE=(ENHS:LNMSUB) +EXECMLS$/LIB 
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